diff options
Diffstat (limited to 'src/Parser.hs')
| -rw-r--r-- | src/Parser.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Parser.hs b/src/Parser.hs index 0274906..d8bccc3 100644 --- a/src/Parser.hs +++ b/src/Parser.hs @@ -162,6 +162,7 @@ parseFloat = do float = do a <- read <$> some digitChar <?> "digits" _ <- char '.' <?> "float delimiter" + -- TODO: THIS IS WRONG! 4.002 is read as 4.2! b <- read <$> some digitChar <?> "digits" return $ convertToRational a b signedFloat :: Parser Rational |