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