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