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 2021-11-02 10:57:27 +01:00
parent 6697e804ee
commit b9c4c9a0b7
Signed by: hasufell
GPG Key ID: 3786C5262ECB4A3F
1 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/Utils/Prelude.hs
View File

@ -336,7 +336,7 @@ versionToPVP v = either (\_ -> (, rest v) <$> alternative v) (pure . (, mempty))
me' = maybe [] (\m -> [T.pack "+",m]) me me' = maybe [] (\m -> [T.pack "+",m]) me
pr' = foldable [] (T.pack "-" :) $ intersperse (T.pack ".") (chunksAsT pr) pr' = foldable [] (T.pack "-" :) $ intersperse (T.pack ".") (chunksAsT pr)
prefix = case (ver, pr', me') of prefix = case (ver, pr', me') of
((_:_), _, _) -> T.pack "." (_:_, _, _) -> T.pack "."
_ -> T.pack "" _ -> T.pack ""
in prefix <> mconcat (ver <> pr' <> me') in prefix <> mconcat (ver <> pr' <> me')
where where