From d110d208791cecea447eab9d580d5708580f78b5 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Sun, 6 Feb 2022 22:25:23 +0100
Subject: [PATCH] Fix HLS removal on windows

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

diff --git a/lib/GHCup/Utils.hs b/lib/GHCup/Utils.hs
index a06f51a..485d1dc 100644
--- a/lib/GHCup/Utils.hs
+++ b/lib/GHCup/Utils.hs
@@ -229,7 +229,7 @@ rmMinorHLSSymlinks ver = do
 
   hlsBins <- hlsAllBinaries ver
   forM_ hlsBins $ \f -> do
-    let fullF = binDir </> f <> exeExt
+    let fullF = binDir </> f
     lift $ logDebug ("rm -f " <> T.pack fullF)
     -- on unix, this may be either a file (legacy) or a symlink
     -- on windows, this is always a file... hence 'rmFile'