summaryrefslogtreecommitdiff
path: root/testsuite/tests/printer
diff options
context:
space:
mode:
authorSylvain Henry <sylvain@haskus.fr>2021-09-07 16:23:51 +0200
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-09-08 16:59:29 -0400
commit87d93745fa14344a26ab242fd5db35e654e1da48 (patch)
treef368a0b4e6ebc0b4d9cc3be4532b08d4c0934dab /testsuite/tests/printer
parent86e5a6c34128a20d04808fcffcc49623a5d967bf (diff)
downloadhaskell-87d93745fa14344a26ab242fd5db35e654e1da48.tar.gz
Only dump Core stats when requested to do so (#20342)
Diffstat (limited to 'testsuite/tests/printer')
-rw-r--r--testsuite/tests/printer/T18052a.stderr6
1 files changed, 3 insertions, 3 deletions
diff --git a/testsuite/tests/printer/T18052a.stderr b/testsuite/tests/printer/T18052a.stderr
index 341c4fcbe6..8ab68dc556 100644
--- a/testsuite/tests/printer/T18052a.stderr
+++ b/testsuite/tests/printer/T18052a.stderr
@@ -12,17 +12,14 @@ Dependent packages: [base-4.16.0.0]
Result size of Tidy Core
= {terms: 24, types: 52, coercions: 0, joins: 0/0}
--- RHS size: {terms: 7, types: 6, coercions: 0, joins: 0/0}
T18052a.$b:||: :: forall {a} {b}. a -> b -> (a, b)
[GblId, Arity=2, Unf=OtherCon []]
T18052a.$b:||: = \ (@a) (@b) (x :: a) (y :: b) -> (x, y)
--- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
(+++) :: forall {a}. [a] -> [a] -> [a]
[GblId]
(+++) = ++
--- RHS size: {terms: 13, types: 18, coercions: 0, joins: 0/0}
T18052a.$m:||:
:: forall {rep :: GHC.Types.RuntimeRep} {r :: TYPE rep} {a} {b}.
(a, b) -> (a -> b -> r) -> ((# #) -> r) -> r
@@ -36,3 +33,6 @@ T18052a.$m:||:
(cont :: a -> b -> r)
_ [Occ=Dead] ->
case scrut of { (x, y) -> cont x y }
+
+
+