X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Numeric.hs;h=4537f9b0d81d734efd2443ce3ea1b1c485a677d6;hb=6ec0a71d8daa9728a9c93bcbfa443d9310423d98;hp=4868a8de68877d1b5e687d0bc90b572c3f9beaba;hpb=bf705fb9aeb5c1ef01a8d806374389a703fbb25f;p=ghc-base.git

diff --git a/Numeric.hs b/Numeric.hs
index 4868a8d..4537f9b 100644
--- a/Numeric.hs
+++ b/Numeric.hs
@@ -47,7 +47,7 @@ module Numeric (
         readHex,          -- :: (Integral a) => ReadS a
 
         readFloat,        -- :: (RealFloat a) => ReadS a
-        
+
         lexDigits,        -- :: ReadS String
 
         -- * Miscellaneous
@@ -207,7 +207,7 @@ showIntAtBase base toChr n r
         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.