diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2015-07-10 13:48:24 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-07-16 23:12:19 +0200 |
| commit | 82f1c78718828e0b49fc6f6ed140234e016e4c7a (patch) | |
| tree | 6037b10a41b2384b4f48371f5a6934a3955e95e2 /testsuite/tests/numeric/should_compile/T7116.stdout | |
| parent | 29f82250d81ace982d3231378bfb2eb4976fd456 (diff) | |
| download | haskell-82f1c78718828e0b49fc6f6ed140234e016e4c7a.tar.gz | |
Fix tests
Diffstat (limited to 'testsuite/tests/numeric/should_compile/T7116.stdout')
| -rw-r--r-- | testsuite/tests/numeric/should_compile/T7116.stdout | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/testsuite/tests/numeric/should_compile/T7116.stdout b/testsuite/tests/numeric/should_compile/T7116.stdout index 520460da36..943908249d 100644 --- a/testsuite/tests/numeric/should_compile/T7116.stdout +++ b/testsuite/tests/numeric/should_compile/T7116.stdout @@ -2,6 +2,7 @@ ==================== Tidy Core ====================
Result size of Tidy Core = {terms: 22, types: 14, coercions: 0}
+-- RHS size: {terms: 8, types: 3, coercions: 0}
dl :: Double -> Double
[GblId,
Arity=1,
@@ -15,6 +16,7 @@ dl :: Double -> Double dl =
\ (x :: Double) -> case x of _ [Occ=Dead] { D# y -> D# (+## y y) }
+-- RHS size: {terms: 1, types: 0, coercions: 0}
dr :: Double -> Double
[GblId,
Arity=1,
@@ -27,6 +29,7 @@ dr :: Double -> Double case x of _ [Occ=Dead] { D# x1 -> D# (+## x1 x1) }}]
dr = dl
+-- RHS size: {terms: 8, types: 3, coercions: 0}
fl :: Float -> Float
[GblId,
Arity=1,
@@ -41,6 +44,7 @@ fl = \ (x :: Float) ->
case x of _ [Occ=Dead] { F# y -> F# (plusFloat# y y) }
+-- RHS size: {terms: 1, types: 0, coercions: 0}
fr :: Float -> Float
[GblId,
Arity=1,
|