diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2016-03-23 13:38:34 +0100 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2016-03-29 16:53:14 +0200 |
| commit | c8138c8505cd5f7f1b9ef33580a443a5c2c4f928 (patch) | |
| tree | e27ff0e0a761a89dcbf49422281ca0a36e155cac /compiler/basicTypes/Demand.hs | |
| parent | e6e17a095f68509d60b06202e49daaf275b7c320 (diff) | |
| download | haskell-c8138c8505cd5f7f1b9ef33580a443a5c2c4f928.tar.gz | |
Do not print DmdType in Core output
too verbose, and usualy preceded by Str= anyways.
Diffstat (limited to 'compiler/basicTypes/Demand.hs')
| -rw-r--r-- | compiler/basicTypes/Demand.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/basicTypes/Demand.hs b/compiler/basicTypes/Demand.hs index 3ce92280d5..5359c2f91c 100644 --- a/compiler/basicTypes/Demand.hs +++ b/compiler/basicTypes/Demand.hs @@ -1239,8 +1239,7 @@ bothDmdType (DmdType fv1 ds1 r1) (fv2, t2) instance Outputable DmdType where ppr (DmdType fv ds res) - = hsep [text "DmdType", - hcat (map ppr ds) <> ppr res, + = hsep [hcat (map ppr ds) <> ppr res, if null fv_elts then empty else braces (fsep (map pp_elt fv_elts))] where |