From 6f61b5dbef96e67145e9efb2527d05533a2a356b Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Sat, 18 Sep 2021 15:47:54 +0200 Subject: [PATCH] Make hlint shut up --- lib/GHCup.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/GHCup.hs b/lib/GHCup.hs index 4f6b188..c50e696 100644 --- a/lib/GHCup.hs +++ b/lib/GHCup.hs @@ -210,12 +210,12 @@ installGHCBindist dlinfo ver isoFilepath forceInstall = do | not forceInstall , regularGHCInstalled , Nothing <- isoFilepath -> do - (throwE $ AlreadyInstalled GHC ver) + throwE $ AlreadyInstalled GHC ver | forceInstall , regularGHCInstalled , Nothing <- isoFilepath -> do - lift $ logInfo $ "Removing the currently installed GHC version first!" + lift $ logInfo "Removing the currently installed GHC version first!" liftE $ rmGHCVer tver | otherwise -> pure () @@ -449,7 +449,7 @@ installCabalBindist dlinfo ver isoFilepath forceInstall = do | forceInstall , regularCabalInstalled , Nothing <- isoFilepath -> do - lift $ logInfo $ "Removing the currently installed version first!" + lift $ logInfo "Removing the currently installed version first!" liftE $ rmCabalVer ver | otherwise -> pure () @@ -795,7 +795,7 @@ installStackBindist dlinfo ver isoFilepath forceInstall = do | forceInstall , regularStackInstalled , 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 | otherwise -> pure ()