From b9c4c9a0b7b73cade9ebd183d2ca4d5ad3adcbd7 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Tue, 2 Nov 2021 10:57:27 +0100
Subject: [PATCH] Fix hlint

---
 lib/GHCup/Utils/Prelude.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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