diff options
Diffstat (limited to 'app/SlackBuilder/Trans.hs')
| -rw-r--r-- | app/SlackBuilder/Trans.hs | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/app/SlackBuilder/Trans.hs b/app/SlackBuilder/Trans.hs deleted file mode 100644 index d678a19..0000000 --- a/app/SlackBuilder/Trans.hs +++ /dev/null @@ -1,29 +0,0 @@ -module SlackBuilder.Trans - ( SlackBuilderT(..) - ) where - -import Control.Monad.Trans.Reader (ReaderT(..)) -import SlackBuilder.Config -import Control.Monad.IO.Class (MonadIO(..)) - -newtype SlackBuilderT a = SlackBuilderT - { runSlackBuilderT :: ReaderT Settings IO a - } - -instance Functor SlackBuilderT - where - fmap f (SlackBuilderT slackBuilderT) = SlackBuilderT $ f <$> slackBuilderT - -instance Applicative SlackBuilderT - where - pure = SlackBuilderT . pure - (SlackBuilderT f) <*> (SlackBuilderT x) = SlackBuilderT $ f <*> x - -instance Monad SlackBuilderT - where - return = pure - (SlackBuilderT x) >>= f = SlackBuilderT $ x >>= runSlackBuilderT . f - -instance MonadIO SlackBuilderT - where - liftIO = SlackBuilderT . liftIO |
