From 950155cbe3bda02bc92af979d7266997b1a134ec Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Sat, 20 Jan 2024 17:50:40 +0800 Subject: [PATCH] Fix hlint --- lib/GHCup/Download.hs | 2 +- lib/GHCup/Utils.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/GHCup/Download.hs b/lib/GHCup/Download.hs index 0dec9a1..a6e840b 100644 --- a/lib/GHCup/Download.hs +++ b/lib/GHCup/Download.hs @@ -165,7 +165,7 @@ getDownloadsF pfreq@(PlatformRequest arch plat _) = do -> [String] -> m GHCupInfo fromStackSetupInfo (Stack.siGHCs -> ghcDli) keys = do - let ghcVersionsPerKey = (`M.lookup` ghcDli) <$> (T.pack <$> keys) + let ghcVersionsPerKey = (`M.lookup` ghcDli) . T.pack <$> keys ghcVersions = fromMaybe mempty . listToMaybe . catMaybes $ ghcVersionsPerKey (ghcupInfo' :: M.Map GHCTargetVersion DownloadInfo) <- M.mapKeys mkTVer <$> M.traverseMaybeWithKey (\_ a -> pure $ fromStackDownloadInfo a) ghcVersions diff --git a/lib/GHCup/Utils.hs b/lib/GHCup/Utils.hs index b0003d2..310b5fa 100644 --- a/lib/GHCup/Utils.hs +++ b/lib/GHCup/Utils.hs @@ -889,7 +889,7 @@ ghcToolFiles ver = do groupToolFiles = groupBy (\(a, _) (b, _) -> a == b) . fmap (splitOnPVP "-") getUniqueTools :: [[(FilePath, String)]] -> [String] - getUniqueTools = filter (isNotAnyInfix blackListedTools) . nub . fmap fst . filter ((== "") . snd) . concat + getUniqueTools = filter (isNotAnyInfix blackListedTools) . nub . fmap fst . concatMap (filter ((== "") . snd)) blackListedTools :: [String] blackListedTools = ["haddock-ghc"]