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/numeric | |
| 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/numeric')
| -rw-r--r-- | testsuite/tests/numeric/should_compile/T7116.stdout | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/testsuite/tests/numeric/should_compile/T7116.stdout b/testsuite/tests/numeric/should_compile/T7116.stdout index 4bbd50e716..ea9fb3eb86 100644 --- a/testsuite/tests/numeric/should_compile/T7116.stdout +++ b/testsuite/tests/numeric/should_compile/T7116.stdout @@ -40,14 +40,12 @@ dr :: Double -> Double WorkFree=True, Expandable=True, Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False) Tmpl= \ (x [Occ=Once!] :: Double) -> - case x of _ [Occ=Dead] { GHC.Types.D# x1 -> + case x of { GHC.Types.D# x1 -> GHC.Types.D# (GHC.Prim.+## x1 x1) }}] dr = \ (x :: Double) -> - case x of _ [Occ=Dead] { GHC.Types.D# x1 -> - GHC.Types.D# (GHC.Prim.+## x1 x1) - } + case x of { GHC.Types.D# x1 -> GHC.Types.D# (GHC.Prim.+## x1 x1) } -- RHS size: {terms: 1, types: 0, coercions: 0} dl :: Double -> Double @@ -59,9 +57,7 @@ dl :: Double -> Double WorkFree=True, Expandable=True, Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False) Tmpl= \ (x [Occ=Once!] :: Double) -> - case x of _ [Occ=Dead] { GHC.Types.D# y -> - GHC.Types.D# (GHC.Prim.+## y y) - }}] + case x of { GHC.Types.D# y -> GHC.Types.D# (GHC.Prim.+## y y) }}] dl = dr -- RHS size: {terms: 8, types: 3, coercions: 0} @@ -74,12 +70,12 @@ fr :: Float -> Float WorkFree=True, Expandable=True, Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False) Tmpl= \ (x [Occ=Once!] :: Float) -> - case x of _ [Occ=Dead] { GHC.Types.F# x1 -> + case x of { GHC.Types.F# x1 -> GHC.Types.F# (GHC.Prim.plusFloat# x1 x1) }}] fr = \ (x :: Float) -> - case x of _ [Occ=Dead] { GHC.Types.F# x1 -> + case x of { GHC.Types.F# x1 -> GHC.Types.F# (GHC.Prim.plusFloat# x1 x1) } @@ -93,7 +89,7 @@ fl :: Float -> Float WorkFree=True, Expandable=True, Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False) Tmpl= \ (x [Occ=Once!] :: Float) -> - case x of _ [Occ=Dead] { GHC.Types.F# y -> + case x of { GHC.Types.F# y -> GHC.Types.F# (GHC.Prim.plusFloat# y y) }}] fl = fr |