summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/Main.hs2
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 ()