Fix hlint warnings

2022-07-11 19:49:08 +02:00 · 2022-07-11 19:49:08 +02:00 · 35bda8d67a
commit 35bda8d67a
parent 9673d28d3e
1 changed files with 2 additions and 3 deletions
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@ -206,9 +206,8 @@ rmGhcupDirs = do
      | isWindows = removeDirIfEmptyOrIsSymlink binDir
      | otherwise = do
          isXDGStyle <- liftIO useXDG
-          if not isXDGStyle
-            then removeDirIfEmptyOrIsSymlink binDir
-            else pure ()
+          when (not isXDGStyle) $
+            removeDirIfEmptyOrIsSymlink binDir

    reportRemainingFiles :: (MonadMask m, MonadIO m) => FilePath -> m [FilePath]
    reportRemainingFiles dir = do