projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
untabify
[ghc-base.git]
/
Numeric.hs
diff --git
a/Numeric.hs
b/Numeric.hs
index
4868a8d
..
4537f9b
100644
(file)
--- a/
Numeric.hs
+++ b/
Numeric.hs
@@
-47,7
+47,7
@@
module Numeric (
readHex, -- :: (Integral a) => ReadS a
readFloat, -- :: (RealFloat a) => ReadS a
readHex, -- :: (Integral a) => ReadS a
readFloat, -- :: (RealFloat a) => ReadS a
-
+
lexDigits, -- :: ReadS String
-- * Miscellaneous
lexDigits, -- :: ReadS String
-- * Miscellaneous
@@
-207,7
+207,7
@@
showIntAtBase base toChr n r
0 -> r'
_ -> showIt (quotRem n base) r'
where
0 -> r'
_ -> showIt (quotRem n base) r'
where
- c = toChr (fromIntegral d)
+ c = toChr (fromIntegral d)
r' = c : r
-- | Show /non-negative/ 'Integral' numbers in base 16.
r' = c : r
-- | Show /non-negative/ 'Integral' numbers in base 16.