updates usages of installHLSBin across files

2021-07-25 22:10:10 +05:30
parent 7471f4f4dc
commit 90ed0895d6
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