Fix hlint warnings

This commit is contained in:
Chris Smith 2021-09-11 19:57:42 -04:00
parent 13aca91231
commit eddda55fe6

View File

@ -869,7 +869,7 @@ setGHC ver sghc = do
when (isNothing . _tvTarget $ ver) $ lift $ symlinkShareDir ghcdir verS when (isNothing . _tvTarget $ ver) $ lift $ symlinkShareDir ghcdir verS
case sghc of case sghc of
SetGHCOnly -> lift $ warnAboutHlsCompatibility SetGHCOnly -> lift warnAboutHlsCompatibility
_ -> return () _ -> return ()
pure ver pure ver
@ -982,7 +982,7 @@ setHLS ver = do
lift $ createLink destL wrapper lift $ createLink destL wrapper
lift $ warnAboutHlsCompatibility lift warnAboutHlsCompatibility
pure () pure ()