compdata-0.12: benchmark/DataTypes.hs

{-# LANGUAGE TypeSynonymInstances, FlexibleInstances #-}

module DataTypes where

import Control.Monad.Fail


type Err = Either String

instance MonadFail Err where
    fail  = Left