diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2017-02-17 13:58:58 +0000 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2017-02-17 14:00:30 +0000 |
commit | 0e7601749d53d59df528ede996d8b54352051498 (patch) | |
tree | 385714bb4676d0df959c846783558fbb824929de /testsuite/tests/numeric | |
parent | e55986a9810129d47a59c0bd4fcdc96f32108041 (diff) | |
download | haskell-0e7601749d53d59df528ede996d8b54352051498.tar.gz |
Simplify OutputableBndr
This replaces three methods in OutputableBndr with one,
and adds comments.
There's also a tiny change in the placement of equals signs in
debug-prints. I like it better that way, but if it complicates
life for anyone we can put it back.
Diffstat (limited to 'testsuite/tests/numeric')
-rw-r--r-- | testsuite/tests/numeric/should_compile/T7116.stdout | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/testsuite/tests/numeric/should_compile/T7116.stdout b/testsuite/tests/numeric/should_compile/T7116.stdout index bc2f85b85f..ee136c24e5 100644 --- a/testsuite/tests/numeric/should_compile/T7116.stdout +++ b/testsuite/tests/numeric/should_compile/T7116.stdout @@ -44,8 +44,8 @@ T7116.$trModule :: GHC.Types.Module Str=m, Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 30}] -T7116.$trModule = - GHC.Types.Module T7116.$trModule3 T7116.$trModule1 +T7116.$trModule + = GHC.Types.Module T7116.$trModule3 T7116.$trModule1 -- RHS size: {terms: 8, types: 3, coercions: 0, joins: 0/0} dr :: Double -> Double @@ -60,9 +60,9 @@ dr :: Double -> Double case x of { GHC.Types.D# x1 -> GHC.Types.D# (GHC.Prim.+## x1 x1) }}] -dr = - \ (x :: Double) -> - case x of { GHC.Types.D# x1 -> GHC.Types.D# (GHC.Prim.+## x1 x1) } +dr + = \ (x :: Double) -> + case x of { GHC.Types.D# x1 -> GHC.Types.D# (GHC.Prim.+## x1 x1) } -- RHS size: {terms: 8, types: 3, coercions: 0, joins: 0/0} dl :: Double -> Double @@ -75,9 +75,9 @@ dl :: Double -> Double Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False) Tmpl= \ (x [Occ=Once!] :: Double) -> case x of { GHC.Types.D# y -> GHC.Types.D# (GHC.Prim.+## y y) }}] -dl = - \ (x :: Double) -> - case x of { GHC.Types.D# y -> GHC.Types.D# (GHC.Prim.+## y y) } +dl + = \ (x :: Double) -> + case x of { GHC.Types.D# y -> GHC.Types.D# (GHC.Prim.+## y y) } -- RHS size: {terms: 8, types: 3, coercions: 0, joins: 0/0} fr :: Float -> Float @@ -92,11 +92,11 @@ fr :: Float -> Float case x of { GHC.Types.F# x1 -> GHC.Types.F# (GHC.Prim.plusFloat# x1 x1) }}] -fr = - \ (x :: Float) -> - case x of { GHC.Types.F# x1 -> - GHC.Types.F# (GHC.Prim.plusFloat# x1 x1) - } +fr + = \ (x :: Float) -> + case x of { GHC.Types.F# x1 -> + GHC.Types.F# (GHC.Prim.plusFloat# x1 x1) + } -- RHS size: {terms: 8, types: 3, coercions: 0, joins: 0/0} fl :: Float -> Float @@ -111,11 +111,11 @@ fl :: Float -> Float case x of { GHC.Types.F# y -> GHC.Types.F# (GHC.Prim.plusFloat# y y) }}] -fl = - \ (x :: Float) -> - case x of { GHC.Types.F# y -> - GHC.Types.F# (GHC.Prim.plusFloat# y y) - } +fl + = \ (x :: Float) -> + case x of { GHC.Types.F# y -> + GHC.Types.F# (GHC.Prim.plusFloat# y y) + } |