FIX typo
This commit is contained in:
parent
16024c1e75
commit
d2c7c0484a
|
@ -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 $
|
||||
|
|
Loading…
Reference in New Issue