diff --git a/lib/GHCup/Utils/Prelude.hs b/lib/GHCup/Utils/Prelude.hs
index a4521154916ac2643e822e790bb878378cef56ea..99fbb06b1e13af78d195889ec4d7dd44cc4ec8be 100644
--- 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