From 42b9b671e1db2ac182ad504b14da9a0f6bb2ff1a Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sun, 11 Aug 2024 13:00:01 +0200
Subject: Fix GHC 9.8 warnings

---
 lib/SlackBuilder/Info.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'lib')

diff --git a/lib/SlackBuilder/Info.hs b/lib/SlackBuilder/Info.hs
index 7617e15..e2f5018 100644
--- a/lib/SlackBuilder/Info.hs
+++ b/lib/SlackBuilder/Info.hs
@@ -65,9 +65,11 @@ packageDownloads variableName = string (variableName <> "=\"")
     <* string "\"\n"
 
 hexDigit :: GenParser Word8
-hexDigit =
-    let digitPair = count 2 hexDigitChar
-     in fst . head . readHex . fmap (toEnum . fromIntegral) <$> digitPair
+hexDigit = count 2 hexDigitChar
+    >>= extractNumber . readHex . fmap (toEnum . fromIntegral)
+  where
+    extractNumber [(number, "")] = pure number
+    extractNumber _ = fail "Unable to convert a 2-digit hexadecimal number"
 
 packageChecksum :: GenParser ByteString
 packageChecksum = ByteString.pack <$> count 16 hexDigit
-- 
cgit v1.2.3