[commit: ghc] master: testsuite: Fix output of T14394 (10ff3e3)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/10ff3e3180d1e808dbcff0f92afc5a3b3a8d4e83/ghc

>---------------------------------------------------------------

commit 10ff3e3180d1e808dbcff0f92afc5a3b3a8d4e83
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Thu Nov 9 17:07:53 2017 -0500

    testsuite: Fix output of T14394


>---------------------------------------------------------------

10ff3e3180d1e808dbcff0f92afc5a3b3a8d4e83
 testsuite/tests/patsyn/should_compile/T14394.stdout | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/testsuite/tests/patsyn/should_compile/T14394.stdout b/testsuite/tests/patsyn/should_compile/T14394.stdout
index 0519ecb..2dc3415 100644
--- a/testsuite/tests/patsyn/should_compile/T14394.stdout
+++ b/testsuite/tests/patsyn/should_compile/T14394.stdout
@@ -1 +1,7 @@
- 
\ No newline at end of file
+pattern Foo :: () => (b ~ a) => a :~~: b
+  	-- Defined at <interactive>:5:1
+pattern Bar :: forall k2 k1 (a :: k1) (b :: k2). () => (k2 ~ k1,
+                                                        (b :: k2) ~~ (a :: k1)) => a :~~: b
+  	-- Defined at <interactive>:11:1
+pattern Bam :: () => Ord a => a -> a -> (S a, S a)
+  	-- Defined at <interactive>:21:1