@@ -1,4 +1,3 @@
2{-# LANGUAGE UndecidableInstances #-}
1{-# LANGUAGE UndecidableInstances #-}
3{-# OPTIONS_GHC -Wno-noncanonical-monad-instances #-}
2{-# OPTIONS_GHC -Wno-noncanonical-monad-instances #-}
4{-# OPTIONS_HADDOCK not-home #-}
3{-# OPTIONS_HADDOCK not-home #-}
@@ -116,10 +115,6 @@ instance Monad (Eff es) where
116 -- https://gitlab.haskell.org/ghc/ghc/-/issues/20008
115 -- https://gitlab.haskell.org/ghc/ghc/-/issues/20008
117 Eff ma >> Eff mb = unsafeEff $ \es -> ma es >> mb es
116 Eff ma >> Eff mb = unsafeEff $ \es -> ma es >> mb es
119−#if __GLASGOW_HASKELL__ < 808
120− fail = unsafeEff_ . fail
123----------------------------------------
118----------------------------------------
124-- Exception
119-- Exception