blob: a661ea44fdf1a3ebb7e582a76fd81dbc57b75825 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
-- {-# LANGUAGE ConstraintKinds #-}
-- {-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Bot
( Bot(..)
) where
import Control.Monad.Reader
import CliOptions (Options)
newtype Bot a = Bot
{ runBot :: ReaderT Options IO a
} deriving (Monad, Functor, Applicative, MonadIO)
|
