diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-12-11 08:14:55 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-12-11 08:14:55 +0100 |
| commit | 6a063b2cc450b6ac90b38bc5c9ea348430794aa7 (patch) | |
| tree | eb5ba320c173f806a8a59046aed7007aa35f81ad /lib/SlackBuilder/Trans.hs | |
| parent | e9504fb8e56fe93e4e23c52b45a620432b11570b (diff) | |
| download | slackbuilder-6a063b2cc450b6ac90b38bc5c9ea348430794aa7.tar.gz | |
Accept up2date package parameter
Diffstat (limited to 'lib/SlackBuilder/Trans.hs')
| -rw-r--r-- | lib/SlackBuilder/Trans.hs | 10 |
1 files changed, 9 insertions, 1 deletions
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 |
