diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-07-27 19:57:24 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-07-27 19:57:24 +0100 |
| commit | f426eef1e98ec35f8123e1b32400f3ab41ba3d71 (patch) | |
| tree | b714351be5762ba264a0a9211286365c6d6493c5 /compiler/utils | |
| parent | 6942b112082fbcdff5c66f06f56fdd336861da47 (diff) | |
| parent | be6810bb027643bf0697b3d237426110f064aba1 (diff) | |
| download | haskell-f426eef1e98ec35f8123e1b32400f3ab41ba3d71.tar.gz | |
Merge branch 'master' of http://darcs.haskell.org/ghc
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 7f8a3a67ff..be6a9cf84d 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -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 |