From a38364006b10eb41fa9a8ecdbbcd565a639f9a02 Mon Sep 17 00:00:00 2001 From: Andrzej Rybczak Date: Fri, 5 Aug 2022 11:50:31 +0200 Subject: [PATCH] Adjust CPP --- effectful-core/utils/Effectful/Internal/Utils.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/effectful-core/utils/Effectful/Internal/Utils.hs b/effectful-core/utils/Effectful/Internal/Utils.hs index 701d7bf..d30bbfe 100644 --- a/effectful-core/utils/Effectful/Internal/Utils.hs +++ b/effectful-core/utils/Effectful/Internal/Utils.hs @@ -22,7 +22,7 @@ weakThreadId :: ThreadId -> Int weakThreadId (ThreadId t#) = fromIntegral $ rts_getThreadId t# foreign import ccall unsafe "rts_getThreadId" -#if __GLASGOW_HASKELL__ >= 903 +#if __GLASGOW_HASKELL__ >= 904 -- https://gitlab.haskell.org/ghc/ghc/-/merge_requests/6163 rts_getThreadId :: ThreadId# -> CULLong #elif __GLASGOW_HASKELL__ >= 900