diff options
| author | Marvin Borner | 2024-08-06 01:53:19 +0200 |
|---|---|---|
| committer | Marvin Borner | 2024-08-06 01:53:19 +0200 |
| commit | 0c3b464d3c73fcd1a6fde3f2f5882eddd5c79685 (patch) | |
| tree | 6ae5ac53ca8c4feff7902b0df9d6c5c94bf3eb87 /src/Parser.hs | |
| parent | e2c3965f929556dda9f779c237f4ba96c8f6c542 (diff) | |
Complex updates
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 |