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 a4521154..99fbb06b 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
--
GitLab