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 /testsuite/tests/simplCore/should_compile/T4930.stderr | |
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 'testsuite/tests/simplCore/should_compile/T4930.stderr')
-rw-r--r-- | testsuite/tests/simplCore/should_compile/T4930.stderr | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T4930.stderr b/testsuite/tests/simplCore/should_compile/T4930.stderr index e6045a31ab..7e51aa68be 100644 --- a/testsuite/tests/simplCore/should_compile/T4930.stderr +++ b/testsuite/tests/simplCore/should_compile/T4930.stderr @@ -37,13 +37,13 @@ T4930.$wfoo [InlPrag=[0], Occ=LoopBreaker] [GblId, Arity=1, Caf=NoCafRefs, Str=<S,U>] T4930.$wfoo = \ (ww :: GHC.Prim.Int#) -> - case case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# ww 5#) - of _ [Occ=Dead] { + case case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# ww 5#) of { False -> GHC.Types.I# (GHC.Prim.+# ww 2#); True -> case T4930.$wfoo ww of ww1 { __DEFAULT -> GHC.Types.I# ww1 } } - of _ [Occ=Dead] { GHC.Types.I# ipv -> + of + { GHC.Types.I# ipv -> GHC.Prim.+# ww 5# } end Rec } @@ -58,12 +58,12 @@ foo [InlPrag=INLINE[0]] :: Int -> Int WorkFree=True, Expandable=True, Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False) Tmpl= \ (w [Occ=Once!] :: Int) -> - case w of _ [Occ=Dead] { GHC.Types.I# ww1 [Occ=Once] -> + case w of { GHC.Types.I# ww1 [Occ=Once] -> case T4930.$wfoo ww1 of ww2 { __DEFAULT -> GHC.Types.I# ww2 } }}] foo = \ (w :: Int) -> - case w of _ [Occ=Dead] { GHC.Types.I# ww1 -> + case w of { GHC.Types.I# ww1 -> case T4930.$wfoo ww1 of ww2 { __DEFAULT -> GHC.Types.I# ww2 } } |