[project @ 2001-03-13 17:30:57 by simonmar]

update expected output

diff --git a/ghc/tests/reader/should_fail/read001.stdout b/ghc/tests/reader/should_fail/read001.stdout
index 8c7cc09..a4d6758 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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
-