diff options
Diffstat (limited to 'libraries/base/Text/Read')
| -rw-r--r-- | libraries/base/Text/Read/Lex.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/libraries/base/Text/Read/Lex.hs b/libraries/base/Text/Read/Lex.hs index ac6ec68f7e..7ae8e9f986 100644 --- a/libraries/base/Text/Read/Lex.hs +++ b/libraries/base/Text/Read/Lex.hs @@ -79,12 +79,7 @@ data Number = MkNumber Int -- Base numberToInteger :: Number -> Maybe Integer numberToInteger (MkNumber base iPart) = Just (val (fromIntegral base) 0 iPart) -numberToInteger (MkDecimal iPart Nothing mExp) - = let i = val 10 0 iPart - in case mExp of - Nothing -> Just i - Just exp | exp >= 0 -> Just (i * (10 ^ exp)) - _ -> Nothing +numberToInteger (MkDecimal iPart Nothing Nothing) = Just (val 10 0 iPart) numberToInteger _ = Nothing numberToRational :: Number -> Rational |