[commit: ghc] master: Broaden Outputable instance for Termination (f3bfa3b)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/f3bfa3bf31442d57190e1961b5fe9e0b4b457a1c/ghc

>---------------------------------------------------------------

commit f3bfa3bf31442d57190e1961b5fe9e0b4b457a1c
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu Jul 2 22:56:14 2015 +0100

    Broaden Outputable instance for Termination


>---------------------------------------------------------------

f3bfa3bf31442d57190e1961b5fe9e0b4b457a1c
 compiler/basicTypes/Demand.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/basicTypes/Demand.hs b/compiler/basicTypes/Demand.hs
index 5ffcb3d..b942f4e 100644
--- a/compiler/basicTypes/Demand.hs
+++ b/compiler/basicTypes/Demand.hs
@@ -839,7 +839,7 @@ bothDmdResult r              _          = r
 -- defaultDmd (r1 `bothDmdResult` r2) = defaultDmd r1 `bothDmd` defaultDmd r2
 -- (See Note [Default demand on free variables] for why)
 
-instance Outputable DmdResult where
+instance Outputable r => Outputable (Termination r) where
   ppr Diverges      = char 'b'
   ppr (Dunno c)     = ppr c