updates usages of installHLSBin across files

2021-07-25 22:10:10 +05:30
parent e5d3080b54
commit 9c22ba9d45
3 changed files with 18 additions and 23 deletions
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -689,6 +689,7 @@ installHLSBin :: ( MonadMask m
                 , MonadFail m
                 )
              => Version
+              -> Maybe FilePath
              -> Excepts
                   '[ AlreadyInstalled
                    , CopyError
@@ -704,9 +705,9 @@ installHLSBin :: ( MonadMask m
                    ]
                   m
                   ()
-installHLSBin ver = do
+installHLSBin ver isoFilepath = do
  dlinfo <- liftE $ getDownloadInfo HLS ver
-  installHLSBindist dlinfo ver
+  installHLSBindist dlinfo ver isoFilepath


 -- | Installs stack into @~\/.ghcup\/bin/stack-\<ver\>@ and