diff --git a/src/Streamly/Internal/Data/Unicode/Parser/Extra.hs b/src/Streamly/Internal/Data/Unicode/Parser/Extra.hs index 706a614924..2c2317cc62 100644 --- a/src/Streamly/Internal/Data/Unicode/Parser/Extra.hs +++ b/src/Streamly/Internal/Data/Unicode/Parser/Extra.hs @@ -174,7 +174,7 @@ scientific = Parser step initial extract extract (SPDot _ _) = pure $ Error "No number found after '.'" extract (SPAfterDot mult buf decimalPlaces) = do pure - $ Done 1 + $ Done 0 $ Scientific.scientific (intToInteger (mult * buf)) (-1 * decimalPlaces) @@ -183,7 +183,7 @@ scientific = Parser step initial extract pure $ Error "No number found after exponent and sign" extract (SPAfterExponent mult number decimalPlaces powerMult buf) = do pure - $ Done 1 + $ Done 0 $ Scientific.scientific (intToInteger (mult * number)) (powerMult * buf - decimalPlaces)