diff options
author | Joachim Breitner <mail@joachim-breitner.de> | 2016-03-30 13:22:26 +0200 |
---|---|---|
committer | Joachim Breitner <mail@joachim-breitner.de> | 2016-04-06 22:06:10 +0200 |
commit | 2265c849bf39a5b0eb10972681a9586c215408b5 (patch) | |
tree | 949c6ac6ee51d536f28bde30865fec133550f63c /compiler/stgSyn | |
parent | 1a8d61ca1a54820d2bc30c6a964312faf76d0635 (diff) | |
download | haskell-2265c849bf39a5b0eb10972681a9586c215408b5.tar.gz |
Core pretty printer: Omit wild case binders
as they (especially their id info with absence information) clutter the
output too much. They come back with debug_on.
Differential Revision: https://phabricator.haskell.org/D2072
Diffstat (limited to 'compiler/stgSyn')
-rw-r--r-- | compiler/stgSyn/StgSyn.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/stgSyn/StgSyn.hs b/compiler/stgSyn/StgSyn.hs index 4145d9e974..87bbb94166 100644 --- a/compiler/stgSyn/StgSyn.hs +++ b/compiler/stgSyn/StgSyn.hs @@ -740,7 +740,7 @@ pprStgExpr (StgCase expr bndr alt_type alts) pprStgAlt :: (OutputableBndr bndr, Outputable occ, Ord occ) => GenStgAlt bndr occ -> SDoc pprStgAlt (con, params, expr) - = hang (hsep [ppr con, sep (map (pprBndr CaseBind) params), text "->"]) + = hang (hsep [ppr con, sep (map (pprBndr CasePatBind) params), text "->"]) 4 (ppr expr <> semi) pprStgOp :: StgOp -> SDoc |