diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2022-06-03 15:57:06 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2022-06-03 15:57:06 +0200 |
| commit | dba9bbcffc6436d37dec362b03dfe84c9707add6 (patch) | |
| tree | e9dfe4195c64e19129e1d9cf77a6e683a9a377fc /test | |
| parent | df15ed04bd85105178e236b6ca8caa5c78f4e523 (diff) | |
Use weak symbol for rtsConfig (support existence of TH in client programs)
Diffstat (limited to 'test')
| -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 () |