From f330fee424701042ba42ae3a02aa04c9be21f562 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 13 Mar 2001 17:30:57 +0000
Subject: [PATCH] [project @ 2001-03-13 17:30:57 by simonmar] update expected
 output

---
 ghc/tests/reader/should_fail/read001.stdout |    2 +-
 ghc/tests/reader/should_fail/read003.stderr |    2 +-
 ghc/tests/reader/should_fail/read007.stderr |    2 +-
 ghc/tests/reader/should_fail/read009.stderr |    4 +---
 ghc/tests/reader/should_fail/read009.stdout |    7 -------
 ghc/tests/reader/should_fail/read015.stderr |    3 ---
 6 files changed, 4 insertions(+), 16 deletions(-)

diff --git a/ghc/tests/reader/should_fail/read001.stdout b/ghc/tests/reader/should_fail/read001.stdout
index 8c7cc09..a4d6758 100644
--- a/ghc/tests/reader/should_fail/read001.stdout
+++ b/ghc/tests/reader/should_fail/read001.stdout
@@ -82,6 +82,6 @@ class (Ord a) => OrdClass a where {
 instance (Eq a) => {EqClass (EqTree a)} where
     []
     eqc x = 'a'
-default (Rational, Integer)
+default (Integer, Rational)
 
 
diff --git a/ghc/tests/reader/should_fail/read003.stderr b/ghc/tests/reader/should_fail/read003.stderr
index a1adc5f..2b3f3bd 100644
--- a/ghc/tests/reader/should_fail/read003.stderr
+++ b/ghc/tests/reader/should_fail/read003.stderr
@@ -3,4 +3,4 @@ read003.hs:4:
     Occurs check: cannot construct the infinite type: t = (t, [a], t1)
 	Expected type: (t, [a], t1)
 	Inferred type: t
-    In the right-hand side of a pattern binding: a
+    in a pattern binding: a
diff --git a/ghc/tests/reader/should_fail/read007.stderr b/ghc/tests/reader/should_fail/read007.stderr
index 0b8d90e..f78aa2a 100644
--- a/ghc/tests/reader/should_fail/read007.stderr
+++ b/ghc/tests/reader/should_fail/read007.stderr
@@ -2,4 +2,4 @@
 read007.hs:6:
     `+' is not a data constructor
     In the pattern: 2 + 2
-    In a do statement: (2 + 2) <- 2
+    in a `do' expression pattern binding: (2 + 2) <- 2
diff --git a/ghc/tests/reader/should_fail/read009.stderr b/ghc/tests/reader/should_fail/read009.stderr
index 131ac17..84aae1d 100644
--- a/ghc/tests/reader/should_fail/read009.stderr
+++ b/ghc/tests/reader/should_fail/read009.stderr
@@ -1,3 +1 @@
-
-read009.hs:5:
-    `do' statements must end in expression: do let foo = True
+read009.hs:12: parse error (possibly incorrect indentation)
diff --git a/ghc/tests/reader/should_fail/read009.stdout b/ghc/tests/reader/should_fail/read009.stdout
index 80258a7..e69de29 100644
--- a/ghc/tests/reader/should_fail/read009.stdout
+++ b/ghc/tests/reader/should_fail/read009.stdout
@@ -1,7 +0,0 @@
-
-==================== Parser ====================
-module ShouldFail where
-h x = x
-foo = do let foo = True
-
-
diff --git a/ghc/tests/reader/should_fail/read015.stderr b/ghc/tests/reader/should_fail/read015.stderr
index d2bdab6..4ea7732 100644
--- a/ghc/tests/reader/should_fail/read015.stderr
+++ b/ghc/tests/reader/should_fail/read015.stderr
@@ -1,4 +1 @@
 read015.hs:6: parse error (possibly incorrect indentation)
-
-Compilation had errors
-
-- 
1.7.10.4