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

Fix CI

Browse Source
This commit is contained in:
Andrzej Rybczak 2021-06-19 12:49:55 +02:00
parent 7295642c78
commit 209f61507b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Effectful/Writer.hs
View File

@ -42,8 +42,8 @@ listen
-> Eff es (a, w)
listen (Eff m) = unsafeEff $ \es -> mask $ \restore -> do
#if __GLASGOW_HASKELL__ >= 900
error "'listen' temporarily doesn't compile with released GHC 9.* versions \
\due to a GHC bug. If you want to use 'listen', please use GHC 8.*"
error $ "'listen' temporarily doesn't compile with released GHC 9.* versions"
++ " due to a GHC bug. If you want to use 'listen', please use GHC 8.*"
#else
w0 <- unsafeStateEnv (\(IdE (Writer w)) -> (w, IdE (Writer mempty))) es
-- If an exception is thrown, restore e0 and keep parts of e1.