OSS/slackbuilder
1
0
Fork 0
Code Issues 4 Pull Requests Actions Releases Activity

Fix GHC 9.8 warnings
All checks were successful
Build / audit (push) Successful in 7s
Details
Build / test (push) Successful in 14m5s
Details

Browse Source
This commit is contained in:
Eugen Wissner 2024-08-11 13:00:01 +02:00
parent e0ca80db32
commit 42b9b671e1
Signed by: belka
GPG Key ID: A27FDC1E8EE902C0
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/SlackBuilder/Info.hs
View File

@ -65,9 +65,11 @@ packageDownloads variableName = string (variableName <> "=\"")
<* string "\"\n" <* string "\"\n"
hexDigit :: GenParser Word8 hexDigit :: GenParser Word8
hexDigit = hexDigit = count 2 hexDigitChar
let digitPair = count 2 hexDigitChar >>= extractNumber . readHex . fmap (toEnum . fromIntegral)
in fst . head . readHex . fmap (toEnum . fromIntegral) <$> digitPair where
extractNumber [(number, "")] = pure number
extractNumber _ = fail "Unable to convert a 2-digit hexadecimal number"
packageChecksum :: GenParser ByteString packageChecksum :: GenParser ByteString
packageChecksum = ByteString.pack <$> count 16 hexDigit packageChecksum = ByteString.pack <$> count 16 hexDigit

4
tests/SlackBuilder/InfoSpec.hs
View File

@ -65,8 +65,8 @@ spec = do
in parseInfoFile' infoDownload1 `parseSatisfies` condition in parseInfoFile' infoDownload1 `parseSatisfies` condition
it "translates checksum characters into the binary format" $ it "translates checksum characters into the binary format" $
let expected = "0102030405060708090a0b0c0d0e0f10" let expected = ["0102030405060708090a0b0c0d0e0f10"]
condition = (== expected) . show . head . checksums condition = (== expected) . fmap show . checksums
in parseInfoFile' infoDownload1 `parseSatisfies` condition in parseInfoFile' infoDownload1 `parseSatisfies` condition
it "accepts an empty downloads list" $ it "accepts an empty downloads list" $