[project @ 2004-05-25 09:11:57 by simonpj]

[ghc-base.git] / GHC / Real.lhs

diff --git a/GHC/Real.lhs b/GHC/Real.lhs
index edee350..b71d679 100644 (file)
--- a/GHC/Real.lhs
+++ b/GHC/Real.lhs
@@ -262,7 +262,8 @@ instance  (Integral a)  => Show (Ratio a)  where
     {-# SPECIALIZE instance Show Rational #-}
     showsPrec p (x:%y) =  showParen (p > ratioPrec) $
                           showsPrec ratioPrec1 x . 
-                          showString " % " . 
+                          showString "%" .     -- H98 report has spaces round the %
+                                               -- but we removed them [May 04]
                           showsPrec ratioPrec1 y
 
 instance  (Integral a) => Enum (Ratio a)  where