From f4b7883cf2a6739ca9cd7b8fe94cfe11df3918bc Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sun, 1 Oct 2023 17:19:06 +0200 Subject: Migrate composer updater --- lib/SlackBuilder/Trans.hs | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'lib/SlackBuilder/Trans.hs') diff --git a/lib/SlackBuilder/Trans.hs b/lib/SlackBuilder/Trans.hs index d678a19..5147a9a 100644 --- a/lib/SlackBuilder/Trans.hs +++ b/lib/SlackBuilder/Trans.hs @@ -5,6 +5,7 @@ module SlackBuilder.Trans import Control.Monad.Trans.Reader (ReaderT(..)) import SlackBuilder.Config import Control.Monad.IO.Class (MonadIO(..)) +import Control.Monad.Catch (MonadCatch(..), MonadThrow(..)) newtype SlackBuilderT a = SlackBuilderT { runSlackBuilderT :: ReaderT Settings IO a @@ -27,3 +28,12 @@ instance Monad SlackBuilderT instance MonadIO SlackBuilderT where liftIO = SlackBuilderT . liftIO + +instance MonadThrow SlackBuilderT + where + throwM = SlackBuilderT . throwM + +instance MonadCatch SlackBuilderT + where + catch (SlackBuilderT action) handler = + SlackBuilderT $ catch action $ runSlackBuilderT . handler -- cgit v1.2.3