diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-07-02 22:56:14 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-07-08 20:46:00 +0100 |
| commit | f3bfa3bf31442d57190e1961b5fe9e0b4b457a1c (patch) | |
| tree | 017e9d5fbfe66f73eb4326a2bf7b7d0fac1c6213 /compiler | |
| parent | 6f9efcbda25dec53364bc315fca79a7065f7de50 (diff) | |
| download | haskell-f3bfa3bf31442d57190e1961b5fe9e0b4b457a1c.tar.gz | |
Broaden Outputable instance for Termination
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/basicTypes/Demand.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/basicTypes/Demand.hs b/compiler/basicTypes/Demand.hs index 5ffcb3d71f..b942f4ecd5 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 |