diff options
| -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 |