blob: ea22791dab82611f154fef5a732df74fe1ee1e80 (
plain)
1
2
3
4
5
6
7
8
9
|
{-# LANGUAGE MagicHash, UnboxedTuples #-}
import GHC.Prim
import GHC.Types
main = do
let local = ()
let null = 0## :: Word#
let triple = (# local, null, null #)
IO (\s -> case mkWeakNoFinalizer# triple () s of (# s, r #) -> (# s, () #))
|