diff options
| -rw-r--r-- | sorbot.cabal | 2 | ||||
| -rw-r--r-- | src/Bot.hs | 15 |
2 files changed, 17 insertions, 0 deletions
diff --git a/sorbot.cabal b/sorbot.cabal index 6761349..26ecb20 100644 --- a/sorbot.cabal +++ b/sorbot.cabal @@ -16,6 +16,7 @@ cabal-version: >=1.10 library hs-source-dirs: src exposed-modules: Lib + , Bot , CliOptions , I18n , IRC @@ -30,6 +31,7 @@ library build-depends: base >= 4.7 && < 5 , bytestring , irc-client + , mtl , optparse-applicative , regex-tdfa , sqlite-simple diff --git a/src/Bot.hs b/src/Bot.hs new file mode 100644 index 0000000..a661ea4 --- /dev/null +++ b/src/Bot.hs @@ -0,0 +1,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) |