diff options
Diffstat (limited to 'test/Main.hs')
| -rw-r--r-- | test/Main.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test/Main.hs b/test/Main.hs index aad5ebb..90e5f90 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -1,4 +1,5 @@ {-# LANGUAGE ForeignFunctionInterface #-} +{-# LANGUAGE TemplateHaskell #-} module Main where import Control.Monad (forM_, when) @@ -10,6 +11,7 @@ import GHC.GC_Hook foreign import ccall "get_my_delegate_ptr" c_get_my_delegate_ptr :: IO (Ptr ()) +$(return []) {-# NOINLINE invokeGCsometimes #-} invokeGCsometimes :: IO () |