Fix GHC 9.8 warnings

2024-08-11 13:00:01 +02:00
parent e0ca80db32
commit 42b9b671e1
2 changed files with 7 additions and 5 deletions
--- a/tests/SlackBuilder/InfoSpec.hs
+++ b/tests/SlackBuilder/InfoSpec.hs
@ -65,8 +65,8 @@ spec = do
             in parseInfoFile' infoDownload1 `parseSatisfies` condition

        it "translates checksum characters into the binary format" $
-            let expected = "0102030405060708090a0b0c0d0e0f10"
-                condition = (== expected) . show . head . checksums
+            let expected = ["0102030405060708090a0b0c0d0e0f10"]
+                condition = (== expected) . fmap show . checksums
             in parseInfoFile' infoDownload1 `parseSatisfies` condition

        it "accepts an empty downloads list" $