From 513e9c2f1f0ff3299222e10d6bb2903e8eb0138a Mon Sep 17 00:00:00 2001 From: simonpj Date: Wed, 25 Jul 2001 08:04:00 +0000 Subject: [PATCH] [project @ 2001-07-25 08:04:00 by simonpj] Change pretty-print of DmdType slightly --- ghc/compiler/basicTypes/NewDemand.lhs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/ghc/compiler/basicTypes/NewDemand.lhs b/ghc/compiler/basicTypes/NewDemand.lhs index 291cf07..735c5ef 100644 --- a/ghc/compiler/basicTypes/NewDemand.lhs +++ b/ghc/compiler/basicTypes/NewDemand.lhs @@ -66,9 +66,11 @@ instance Outputable DmdType where ppr (DmdType fv ds res) = hsep [text "DmdType", hcat (map ppr ds) <> ppr res, - braces (fsep (map pp_elt (ufmToList fv)))] + if null fv_elts then empty + else braces (fsep (map pp_elt fv_elts))] where pp_elt (uniq, dmd) = ppr uniq <> text "->" <> ppr dmd + fv_elts = ufmToList fv instance Outputable DmdResult where ppr TopRes = empty -- Keep these distinct from Demand letters -- 1.7.10.4