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

Fix hlint

Browse Source
This commit is contained in:
Julian Ospald 2024-01-20 17:50:40 +08:00
parent dd978ff2fd
commit 950155cbe3
No known key found for this signature in database
GPG Key ID: 4275CDA6A29BED43
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/GHCup/Download.hs
View File

@ -165,7 +165,7 @@ getDownloadsF pfreq@(PlatformRequest arch plat _) = do
-> [String] -> [String]
-> m GHCupInfo -> m GHCupInfo
fromStackSetupInfo (Stack.siGHCs -> ghcDli) keys = do 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 ghcVersions = fromMaybe mempty . listToMaybe . catMaybes $ ghcVersionsPerKey
(ghcupInfo' :: M.Map GHCTargetVersion DownloadInfo) <- (ghcupInfo' :: M.Map GHCTargetVersion DownloadInfo) <-
M.mapKeys mkTVer <$> M.traverseMaybeWithKey (\_ a -> pure $ fromStackDownloadInfo a) ghcVersions M.mapKeys mkTVer <$> M.traverseMaybeWithKey (\_ a -> pure $ fromStackDownloadInfo a) ghcVersions

2
lib/GHCup/Utils.hs
View File

@ -889,7 +889,7 @@ ghcToolFiles ver = do
groupToolFiles = groupBy (\(a, _) (b, _) -> a == b) . fmap (splitOnPVP "-") groupToolFiles = groupBy (\(a, _) (b, _) -> a == b) . fmap (splitOnPVP "-")
getUniqueTools :: [[(FilePath, String)]] -> [String] 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 :: [String]
blackListedTools = ["haddock-ghc"] blackListedTools = ["haddock-ghc"]