1
0
forked from GitHub/gf-core

fix newer ghc: Don't try to be backwards compatible

This commit is contained in:
Andreas Källberg
2020-08-05 16:51:24 +02:00
parent 251845f83e
commit b8812b54b2
4 changed files with 6 additions and 37 deletions

View File

@@ -16,10 +16,6 @@ module GF.Data.ErrM where
import Control.Monad (MonadPlus(..),ap)
import Control.Applicative
#if !MIN_VERSION_base(4,11,0)
-- Control.Monad.Fail import is redundant since GHC 8.8.1
import qualified Control.Monad.Fail as Fail
#endif
-- | Like 'Maybe' type with error msgs
data Err a = Ok a | Bad String
@@ -40,17 +36,8 @@ instance Monad Err where
Ok a >>= f = f a
Bad s >>= f = Bad s
#if !(MIN_VERSION_base(4,11,0))
instance MonadFail Err where
fail = Bad
#endif
instance Fail.MonadFail Err where
fail = Bad
-- Control.Monad.Fail import will become redundant in GHC 8.8+
import qualified Control.Monad.Fail as Fail