updates usages of new installGHCBindist and related installGHCBin

2021-07-25 13:38:32 +05:30
parent 083dc59a8f
commit 37ea18a0d8
3 changed files with 20 additions and 25 deletions
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -405,6 +405,7 @@ installGHCBin :: ( MonadFail m
                 , MonadUnliftIO m
                 )
              => Version         -- ^ the version to install
+              -> Maybe FilePath  -- ^ isolated install filepath, if user passed any
              -> Excepts
                   '[ AlreadyInstalled
                    , BuildFailed
@@ -420,9 +421,9 @@ installGHCBin :: ( MonadFail m
                    ]
                   m
                   ()
-installGHCBin ver = do
+installGHCBin ver isoFilepath = do
  dlinfo <- liftE $ getDownloadInfo GHC ver
-  installGHCBindist dlinfo ver
+  installGHCBindist dlinfo ver isoFilepath


 -- | Like 'installCabalBin', except takes the 'DownloadInfo' as