ref: cf20fb934e9af13b64c2365cbf95d974f30b5c9d
dir: /lib/Control/Monad/Fail.hs/
module Control.Monad.Fail(MonadFail(..)) where import Prelude() -- do not import Prelude import Primitives import Control.Applicative import Control.Error import Control.Monad import Data.Char import Data.List_Type class Monad m => MonadFail m where fail :: forall a . String -> m a fail = error instance MonadFail [] where fail _ = []