haskell-effectful/effectful
1
1
Fork 0
mirror of https://github.com/haskell-effectful/effectful.git synced 2024-11-30 03:20:03 +03:00
Code Issues Projects Releases Wiki Activity

Adjust CPP

Browse Source
This commit is contained in:
Andrzej Rybczak 2022-08-05 11:50:31 +02:00
parent 0c1463ab83
commit a38364006b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
effectful-core/utils/Effectful/Internal/Utils.hs
View File

@ -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