From 6a063b2cc450b6ac90b38bc5c9ea348430794aa7 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Mon, 11 Dec 2023 08:14:55 +0100 Subject: Accept up2date package parameter --- lib/SlackBuilder/Trans.hs | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'lib/SlackBuilder/Trans.hs') diff --git a/lib/SlackBuilder/Trans.hs b/lib/SlackBuilder/Trans.hs index 5147a9a..ee9b539 100644 --- a/lib/SlackBuilder/Trans.hs +++ b/lib/SlackBuilder/Trans.hs @@ -1,11 +1,19 @@ module SlackBuilder.Trans - ( SlackBuilderT(..) + ( SlackBuilderException(..) + , SlackBuilderT(..) ) where import Control.Monad.Trans.Reader (ReaderT(..)) +import Data.Text (Text) import SlackBuilder.Config import Control.Monad.IO.Class (MonadIO(..)) import Control.Monad.Catch (MonadCatch(..), MonadThrow(..)) +import Control.Exception (Exception(..)) + +newtype SlackBuilderException = UpdaterNotFound Text + deriving Show + +instance Exception SlackBuilderException newtype SlackBuilderT a = SlackBuilderT { runSlackBuilderT :: ReaderT Settings IO a -- cgit v1.2.3