Implement compiling HLS from source

2021-09-19 21:24:21 +02:00
parent ba4b45f7fb
commit f90741f4d3
10 changed files with 410 additions and 9 deletions
--- a/lib/GHCup/Download.hs
+++ b/lib/GHCup/Download.hs
@@ -636,7 +636,7 @@ checkDigest eDigest file = do
    lift $ logInfo $ "verifying digest of: " <> T.pack p'
    c <- liftIO $ L.readFile file
    cDigest <- throwEither . E.decodeUtf8' . B16.encode . SHA256.hashlazy $ c
-    when ((cDigest /= eDigest) && verify) $ throwE (DigestError cDigest eDigest)
+    when ((cDigest /= eDigest) && verify) $ throwE (DigestError file cDigest eDigest)


 -- | Get additional curl args from env. This is an undocumented option.