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

Make hlint shut up

Browse Source
This commit is contained in:
Julian Ospald 2021-09-18 15:47:54 +02:00
parent c42c4b64f9
commit 6f61b5dbef
Signed by: hasufell
GPG Key ID: 3786C5262ECB4A3F
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/GHCup.hs
View File

@ -210,12 +210,12 @@ installGHCBindist dlinfo ver isoFilepath forceInstall = do
| not forceInstall | not forceInstall
, regularGHCInstalled , regularGHCInstalled
, Nothing <- isoFilepath -> do , Nothing <- isoFilepath -> do
(throwE $ AlreadyInstalled GHC ver) throwE $ AlreadyInstalled GHC ver
| forceInstall | forceInstall
, regularGHCInstalled , regularGHCInstalled
, Nothing <- isoFilepath -> do , Nothing <- isoFilepath -> do
lift $ logInfo $ "Removing the currently installed GHC version first!" lift $ logInfo "Removing the currently installed GHC version first!"
liftE $ rmGHCVer tver liftE $ rmGHCVer tver
| otherwise -> pure () | otherwise -> pure ()
@ -449,7 +449,7 @@ installCabalBindist dlinfo ver isoFilepath forceInstall = do
| forceInstall | forceInstall
, regularCabalInstalled , regularCabalInstalled
, Nothing <- isoFilepath -> do , Nothing <- isoFilepath -> do
lift $ logInfo $ "Removing the currently installed version first!" lift $ logInfo "Removing the currently installed version first!"
liftE $ rmCabalVer ver liftE $ rmCabalVer ver
| otherwise -> pure () | otherwise -> pure ()
@ -795,7 +795,7 @@ installStackBindist dlinfo ver isoFilepath forceInstall = do
| forceInstall | forceInstall
, regularStackInstalled , regularStackInstalled
, Nothing <- isoFilepath -> do , Nothing <- isoFilepath -> do
lift $ logInfo $ "Removing the currently installed version of Stack first!" lift $ logInfo "Removing the currently installed version of Stack first!"
liftE $ rmStackVer ver liftE $ rmStackVer ver
| otherwise -> pure () | otherwise -> pure ()