Commit 513e9c2f authored by simonpj's avatar simonpj
Browse files

[project @ 2001-07-25 08:04:00 by simonpj]

Change pretty-print of DmdType slightly
parent 7ca7d77a
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment