diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-07-28 08:16:23 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-07-28 08:16:23 +0100 |
| commit | 6a29c4a0e0b5cefc767ce5d5f8648c971fc19d7b (patch) | |
| tree | d70a33b098f764a1ed16ce897859effd2db2fd4d /compiler/utils | |
| parent | 7910fce2c91da802801f6faa730478fbdfbdd00e (diff) | |
| parent | f426eef1e98ec35f8123e1b32400f3ab41ba3d71 (diff) | |
| download | haskell-6a29c4a0e0b5cefc767ce5d5f8648c971fc19d7b.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 |