@@ -1,3 +1,4 @@
1+{-# LANGUAGE EmptyCase #-}
12{-# LANGUAGE LambdaCase #-}
23{-# LANGUAGE OverloadedStrings #-}
34{-# LANGUAGE PatternGuards #-}
@@ -14,6 +15,7 @@ import Data.Semigroup (Semigroup, (<>))
1415import qualified Data.Set as Set
1516import Data.String
1617import Data.Text (Text)
18+import Data.Void
1719import qualified Data.Text as T
1820import qualified Data.Text.IO as T
1921import qualified Network.HTTP.Client as HTTP
@@ -53,9 +55,10 @@ commit msg = void $ run "git"
5355 , doubleQuotes msg
5456 ]
5557
56−runCli :: MonadIO m => CliT IO a -> m a
58+-- TODO replace Void and stop using loosely typed synchronous exceptions
59+runCli :: MonadIO m => CliT Void IO a -> m a
5760runCli f = liftIO $ do
58− c <- newCliConfig Notice False False
61+ c <- newCliConfig Notice False False (\case {})
5962 CliApp.runCli c f
6063
6164tshow :: Show a => a -> Text