Merge branch 'master' of http://darcs.haskell.org/ghc
[ghc.git] / compiler / utils / Outputable.lhs
index 7f8a3a6..be6a9cf 100644 (file)
@@ -599,7 +599,10 @@ keyword = bold
 class Outputable a where
        ppr :: a -> SDoc
        pprPrec :: Rational -> a -> SDoc
-       
+               -- 0 binds least tightly
+               -- We use Rational because there is always a
+               -- Rational between any other two Rationals
+
        ppr = pprPrec 0
        pprPrec _ = ppr