We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 3062ae7 commit 710a7d4Copy full SHA for 710a7d4
src/BotPlutusInterface/UtxoParser.hs
@@ -125,7 +125,7 @@ decodeHash rawParser =
125
126
decodeHex :: Parser Text -> Parser Text
127
decodeHex rawParser =
128
- rawParser >>= \parsed -> either (const mzero) pure ((fmap decodeUtf8 . unhex . encodeUtf8) parsed)
+ rawParser >>= \parsed -> either (const mzero) (pure . decodeUtf8) ((unhex . encodeUtf8) parsed)
129
130
feeParser :: Parser Integer
131
feeParser =
0 commit comments