hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix hlint warnings

Browse Source
This commit is contained in:
Julian Ospald 2022-07-11 19:49:08 +02:00
parent 9673d28d3e
commit 35bda8d67a
Signed by: hasufell
GPG Key ID: 3786C5262ECB4A3F
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/GHCup.hs
View File

@ -206,9 +206,8 @@ rmGhcupDirs = do
| isWindows = removeDirIfEmptyOrIsSymlink binDir | isWindows = removeDirIfEmptyOrIsSymlink binDir
| otherwise = do | otherwise = do
isXDGStyle <- liftIO useXDG isXDGStyle <- liftIO useXDG
if not isXDGStyle when (not isXDGStyle) $
then removeDirIfEmptyOrIsSymlink binDir removeDirIfEmptyOrIsSymlink binDir
else pure ()
reportRemainingFiles :: (MonadMask m, MonadIO m) => FilePath -> m [FilePath] reportRemainingFiles :: (MonadMask m, MonadIO m) => FilePath -> m [FilePath]
reportRemainingFiles dir = do reportRemainingFiles dir = do