src/Types.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

module Types where

import Control.Monad.Except
import Control.Monad.Reader

newtype LException = LException String
data Config = Config {
    configScriptFileName :: Maybe String,
    configVerboseMode :: Bool,
    configShowHelp :: Bool
}

type LContext a = ReaderT Config (ExceptT LException IO) a