Fix HLS not cleaning up after failed install, fix #361

2022-05-11 15:57:14 +02:00
parent 991e540c11
commit 5130cb013b
1 changed files with 2 additions and 1 deletions
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -627,7 +627,8 @@ installHLSBindist dlinfo ver installDir forceInstall = do
      then liftE $ installHLSUnpackedLegacy workdir (GHCupDir binDir) ver forceInstall
      else do
        inst <- ghcupHLSDir ver
-        liftE $ runBuildAction tmpUnpack Nothing $ installHLSUnpacked workdir (GHCupDir inst) ver
+        liftE $ runBuildAction tmpUnpack (Just inst)
+              $ installHLSUnpacked workdir (GHCupDir inst) ver
        liftE $ setHLS ver SetHLS_XYZ Nothing