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/spec-inline.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/spec-inline.stderr')
-rw-r--r-- | testsuite/tests/simplCore/should_compile/spec-inline.stderr | 28 |
1 files changed, 11 insertions, 17 deletions
diff --git a/testsuite/tests/simplCore/should_compile/spec-inline.stderr b/testsuite/tests/simplCore/should_compile/spec-inline.stderr index a1dc5144a7..441b4ed391 100644 --- a/testsuite/tests/simplCore/should_compile/spec-inline.stderr +++ b/testsuite/tests/simplCore/should_compile/spec-inline.stderr @@ -56,14 +56,11 @@ Roman.foo_$s$wgo = (GHC.Prim.+# (GHC.Prim.+# (GHC.Prim.+# sc sc) sc) sc) sc) sc) sc } in - case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<=# sc1 0#) - of _ [Occ=Dead] { + case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<=# sc1 0#) of { False -> - case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# sc1 100#) - of _ [Occ=Dead] { + case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# sc1 100#) of { False -> - case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# sc1 500#) - of _ [Occ=Dead] { + case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# sc1 500#) of { False -> Roman.foo_$s$wgo (GHC.Prim.+# m m) (GHC.Prim.-# sc1 1#); True -> Roman.foo_$s$wgo m (GHC.Prim.-# sc1 3#) }; @@ -82,10 +79,10 @@ Roman.$wgo [InlPrag=[0]] :: Maybe Int -> Maybe Int -> GHC.Prim.Int# WorkFree=True, Expandable=True, Guidance=IF_ARGS [60 30] 256 0}] Roman.$wgo = \ (w :: Maybe Int) (w1 :: Maybe Int) -> - case w1 of _ [Occ=Dead] { + case w1 of { Nothing -> case Roman.foo3 of wild1 { }; Just x -> - case x of _ [Occ=Dead] { GHC.Types.I# ipv -> + case x of { GHC.Types.I# ipv -> let { m :: GHC.Prim.Int# [LclId] @@ -96,18 +93,15 @@ Roman.$wgo = (GHC.Prim.+# (GHC.Prim.+# (GHC.Prim.+# ipv ipv) ipv) ipv) ipv) ipv) ipv } in - case w of _ [Occ=Dead] { + case w of { Nothing -> Roman.foo_$s$wgo m 10#; Just n -> - case n of _ [Occ=Dead] { GHC.Types.I# x2 -> - case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<=# x2 0#) - of _ [Occ=Dead] { + case n of { GHC.Types.I# x2 -> + case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<=# x2 0#) of { False -> - case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# x2 100#) - of _ [Occ=Dead] { + case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# x2 100#) of { False -> - case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# x2 500#) - of _ [Occ=Dead] { + case GHC.Prim.tagToEnum# @ Bool (GHC.Prim.<# x2 500#) of { False -> Roman.foo_$s$wgo (GHC.Prim.+# m m) (GHC.Prim.-# x2 1#); True -> Roman.foo_$s$wgo m (GHC.Prim.-# x2 3#) }; @@ -167,7 +161,7 @@ foo :: Int -> Int }}] foo = \ (n :: Int) -> - case n of _ [Occ=Dead] { GHC.Types.I# ipv -> + case n of { GHC.Types.I# ipv -> case Roman.foo_$s$wgo 6# ipv of ww { __DEFAULT -> GHC.Types.I# ww } } |