Yooo

2020-03-01 02:21:40 +01:00
parent 998f194d23
commit 12da293100
5 changed files with 34 additions and 21 deletions
--- a/app/ghcup/Main.hs
+++ b/app/ghcup/Main.hs
@@ -16,6 +16,7 @@ import           GHCup.Types

 import           Control.Monad.Logger
 import           Control.Monad.Reader
+import           Control.Monad.Trans.Resource
 import           Data.Bifunctor
 import           Data.Char
 import           Data.List                      ( intercalate )
@@ -252,6 +253,7 @@ main = do
          let runInstTool =
                runLogger
                  . flip runReaderT settings
+                  . runResourceT
                  . runE
                    @'[ AlreadyInstalled
                      , ArchiveError