From 8eea9bd6a58cffdd3f0f8b981b0c72d6258bd5b9 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Fri, 12 Nov 2021 01:04:27 +0100
Subject: [PATCH] Prefer forM_ when possible

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

diff --git a/lib/GHCup.hs b/lib/GHCup.hs
index 4ab43a6..8881029 100644
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -1097,7 +1097,7 @@ setGHC ver sghc = do
         pure $ Just (file <> "-" <> verS)
 
     -- create symlink
-    forM mTargetFile $ \targetFile -> do
+    forM_ mTargetFile $ \targetFile -> do
       let fullF = binDir </> targetFile  <> exeExt
           fileWithExt = file <> exeExt
       destL <- lift $ ghcLinkDestination fileWithExt ver