Do etags hashing wrt #193

2021-07-24 16:36:31 +02:00
parent 9639e695e2
commit fdf45e0fe6
8 changed files with 314 additions and 339 deletions
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -2137,7 +2137,7 @@ upgradeGHCup mtarget force' = do
  dli   <- liftE $ getDownloadInfo GHCup latestVer
  tmp   <- lift withGHCupTmpDir
  let fn = "ghcup" <> exeExt
-  p <- liftE $ download dli tmp (Just fn)
+  p <- liftE $ download (_dlUri dli) (Just (_dlHash dli)) tmp (Just fn) False
  let destDir = takeDirectory destFile
      destFile = fromMaybe (binDir </> fn) mtarget
  lift $ $(logDebug) [i|mkdir -p #{destDir}|]