ndwarshuis
/
pwncash
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FIX typo

This commit is contained in:
Nathan Dwarshuis 2023-02-13 18:49:41 -05:00
parent 16024c1e75
commit d2c7c0484a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Internal/Utils.hs
View File

@ -252,8 +252,8 @@ parseRational (pat, re) s = case matchGroupsMaybe s re of
_ -> msg "malformed decimal"
where
readT what t = case readMaybe $ T.unpack t of
Just d -> return d
_ -> msg $ T.unwords ["could not parse", what, t]
Just d -> return $ fromInteger d
_ -> msg $ T.unwords ["could not parse", what, singleQuote t]
msg :: MonadFail m => T.Text -> m a
msg m =
fail $