diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Main.hs b/src/Main.hs index aa89fb4..3e00f18 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -6,7 +6,7 @@ module Main ( main ) where -import Control.Monad.Catch (MonadThrow(..), handle) +import Control.Monad.Catch (MonadThrow(..)) import Control.Monad.IO.Class (MonadIO(..)) import qualified Data.Map as Map import Options.Applicative (execParser) @@ -84,7 +84,7 @@ up2Date :: Maybe Text -> SlackBuilderT () up2Date selectedPackage = do packages' <- SlackBuilderT $ asks (getField @"packages") case selectedPackage of - Nothing -> traverse_ (handle handleException . go) $ autoUpdatable packages' + Nothing -> traverse_ (handleExceptions . go) $ autoUpdatable packages' Just packageName | Just foundPackage <- find ((packageName ==) . getField @"name") (autoUpdatable packages') -> go foundPackage @@ -96,7 +96,7 @@ up2Date selectedPackage = do check :: SlackBuilderT () check = SlackBuilderT (asks (getField @"packages")) - >>= traverse_ (handle handleException . go) . autoUpdatable + >>= traverse_ (handleExceptions . go) . autoUpdatable where go package = getAndLogLatest package >>= mapM_ checkUpdateAvailability @@ -130,7 +130,7 @@ installed = do main :: IO () main = execParser slackBuilderParser - >>= handle handleException . withCommandLine + >>= handleExceptions . withCommandLine where withCommandLine programCommand = do settingsResult <- Toml.decodeFileEither settingsCodec configurationFile |