diff options
| author | Yuri de Wit <admin@rodlogic.net> | 2016-01-09 18:58:30 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-01-09 19:27:47 +0100 |
| commit | 5cb236dd6b497da0b9072b20ca74c298477f7a61 (patch) | |
| tree | b1f30df4702094cfdfc1ada970378ec775099bd4 /testsuite/tests/th/T10603.stderr | |
| parent | 4405f9de855bdd37117e8bdef2da550ac398d81e (diff) | |
| download | haskell-5cb236dd6b497da0b9072b20ca74c298477f7a61.tar.gz | |
fix -ddump-splices to parenthesize ((\x -> x) a) correctly
Test Plan: ./validate
Reviewers: goldfire, austin, bgamari
Subscribers: goldfire, osa1, thomie
Differential Revision: https://phabricator.haskell.org/D1114
GHC Trac Issues: #10603
Diffstat (limited to 'testsuite/tests/th/T10603.stderr')
| -rw-r--r-- | testsuite/tests/th/T10603.stderr | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/testsuite/tests/th/T10603.stderr b/testsuite/tests/th/T10603.stderr index 47f2a7aa86..c294e74226 100644 --- a/testsuite/tests/th/T10603.stderr +++ b/testsuite/tests/th/T10603.stderr @@ -1,6 +1,4 @@ T10603.hs:5:18-68: Splicing expression - [| case Just 'a' of { - Just a_atn -> Just ((\ x_ato -> x_ato) a_atn) } |] + [| case Just 'a' of { Just a -> Just ((\ x -> x) a) } |] ======> - case Just 'a' of { - Just a_a4uM -> Just ((\ x_a4uN -> x_a4uN) a_a4uM) } + case Just 'a' of { Just a -> Just ((\ x -> x) a) } |