shithub: MicroHs

ref: 0d07868cc5f5ff3ae18505f2be11b8de7fe05e2b
dir: /lib/Control/Monad/Fail.hs/

View raw version 
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 _ = []