Fix HLS not cleaning up after failed install, fix #361
This commit is contained in:
parent
991e540c11
commit
5130cb013b
@ -627,7 +627,8 @@ installHLSBindist dlinfo ver installDir forceInstall = do
|
|||||||
then liftE $ installHLSUnpackedLegacy workdir (GHCupDir binDir) ver forceInstall
|
then liftE $ installHLSUnpackedLegacy workdir (GHCupDir binDir) ver forceInstall
|
||||||
else do
|
else do
|
||||||
inst <- ghcupHLSDir ver
|
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
|
liftE $ setHLS ver SetHLS_XYZ Nothing
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user