From 59ece98fdc4b5d0ae4f231c043d31a48d527365f Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Thu, 17 Sep 2020 21:20:38 +0200
Subject: [PATCH] Fix bug in compileGHC cleanup logic

---
 lib/GHCup.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/GHCup.hs b/lib/GHCup.hs
index 3d08253..820edb2 100644
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -840,7 +840,7 @@ compileGHC dls tver bstrap jobs mbuildConfig patchdir aargs pfreq@(PlatformReque
 
     (bindist, bmk) <- liftE $ runBuildAction
       tmpUnpack
-      (Just ghcdir)
+      Nothing
       (do
         b   <- compileBindist bghc ghcdir workdir
         bmk <- liftIO $ readFileStrict (build_mk workdir)