From dba9bbcffc6436d37dec362b03dfe84c9707add6 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Fri, 3 Jun 2022 15:57:06 +0200
Subject: Use weak symbol for rtsConfig (support existence of TH in client
 programs)

---
 test/Main.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'test')

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 ()
-- 
cgit v1.2.3-70-g09d2