1
0
forked from GitHub/gf-core

First attempt at fixing incompabilities with newer cabal

This commit is contained in:
Andreas Källberg
2020-08-05 16:20:35 +02:00
parent deddde953f
commit 251845f83e
7 changed files with 78 additions and 3 deletions

View File

@@ -16,6 +16,10 @@ 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
@@ -33,10 +37,23 @@ fromErr a = err (const a) id
instance Monad Err where
return = Ok
fail = Bad
Ok a >>= f = f a
Bad s >>= f = Bad s
#if !(MIN_VERSION_base(4,11,0))
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
-- | added 2\/10\/2003 by PEB
instance Functor Err where
fmap f (Ok a) = Ok (f a)