Fix hlint

2021-11-02 10:57:27 +01:00 · 2021-11-02 10:57:27 +01:00 · b9c4c9a0b7
parent 6697e804ee
commit b9c4c9a0b7
1 changed files with 2 additions and 2 deletions
--- a/lib/GHCup/Utils/Prelude.hs
+++ b/lib/GHCup/Utils/Prelude.hs
@ -336,8 +336,8 @@ versionToPVP v = either (\_ -> (, rest v) <$> alternative v) (pure . (, mempty))
        me' = maybe [] (\m -> [T.pack "+",m]) me
        pr' = foldable [] (T.pack "-" :) $ intersperse (T.pack ".") (chunksAsT pr)
        prefix = case (ver, pr', me') of
-                   ((_:_), _, _) -> T.pack "."
-                   _             -> T.pack ""
+                   (_:_, _, _) -> T.pack "."
+                   _           -> T.pack ""
    in prefix <> mconcat (ver <> pr' <> me')
   where
    chunksAsT :: Functor t => t VChunk -> t Text