Prefer forM_ when possible

2021-11-12 01:04:27 +01:00 · 2021-11-12 01:04:27 +01:00 · 8eea9bd6a5
parent 626a2dd020
commit 8eea9bd6a5
1 changed files with 1 additions and 1 deletions
--- 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