From d2c7c0484a940190b72747767fd1c035e3028708 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Mon, 13 Feb 2023 18:49:41 -0500 Subject: [PATCH] FIX typo --- lib/Internal/Utils.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Internal/Utils.hs b/lib/Internal/Utils.hs index a4c493e..5ed1426 100644 --- a/lib/Internal/Utils.hs +++ b/lib/Internal/Utils.hs @@ -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 $