From b4e58478c3fd69cd975073ba77321bcdbaf934e1 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Sun, 6 Feb 2022 22:24:52 +0100
Subject: [PATCH] Fix error handling for HLS make

---
 lib/GHCup.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/GHCup.hs b/lib/GHCup.hs
index ca02662..ce3e61e 100644
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -616,14 +616,14 @@ installHLSBindist dlinfo ver isoFilepath forceInstall = do
       lift $ logInfo $ "isolated installing HLS to " <> T.pack isoDir
       if legacy
       then liftE $ installHLSUnpackedLegacy workdir isoDir Nothing forceInstall
-      else liftE $ installHLSUnpacked workdir isoDir ver
+      else liftE $ runBuildAction tmpUnpack Nothing $ installHLSUnpacked workdir isoDir ver
 
     Nothing -> do
       if legacy
       then liftE $ installHLSUnpackedLegacy workdir binDir (Just ver) forceInstall
       else do
         inst <- ghcupHLSDir ver
-        liftE $ installHLSUnpacked workdir inst ver
+        liftE $ runBuildAction tmpUnpack Nothing $ installHLSUnpacked workdir inst ver
         liftE $ setHLS ver SetHLS_XYZ
 
   liftE $ installHLSPostInst isoFilepath ver