From 840290491f45157249ba97fb8f5e4cae9e04dc90 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Fri, 22 Sep 2023 07:33:02 +0200
Subject: Split the code into library and application

---
 app/SlackBuilder/Trans.hs | 29 -----------------------------
 1 file changed, 29 deletions(-)
 delete mode 100644 app/SlackBuilder/Trans.hs

(limited to 'app/SlackBuilder/Trans.hs')

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
-- 
cgit v1.2.3