Bot: Try adding a BotConfig type

Tried adding this to replicate some code I had been reading, but
ultimately it didn't really change anything. In the end I don't need
this type, at least not right now, but it was an interesting exercise I
suppose.

1 files changed, 6 insertions, 2 deletions

diff --git a/src/Bot.hs b/src/Bot.hs
index a661ea4..fe1b0a1 100644
--- a/src/Bot.hs
+++ b/src/Bot.hs
@@ -1,15 +1,19 @@
--- {-# LANGUAGE ConstraintKinds #-}
+{-# 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, MonadIO)
+    -- } deriving (Monad, Functor, Applicative, BotConfig, MonadIO)
+    } deriving (Monad, Functor, Applicative, MonadReader Options, MonadIO)