X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Ftests%2Freader%2Fshould_fail%2Fread001.stderr;h=9fd0f2b2bc2d9012a6dedcb12a231cce02fde006;hb=111cee3f1ad93816cb828e38b38521d85c3bcebb;hp=6e32bbe064c7e9a30bde08c6bb9819d705e024a1;hpb=290e7896a6785ba5dcfbc7045438f382afd447ff;p=ghc-hetmet.git

diff --git a/ghc/tests/reader/should_fail/read001.stderr b/ghc/tests/reader/should_fail/read001.stderr
index 6e32bbe..9fd0f2b 100644
--- a/ghc/tests/reader/should_fail/read001.stderr
+++ b/ghc/tests/reader/should_fail/read001.stderr
@@ -30,16 +30,27 @@ f _
   ((n+42))
     = y
 expr a b c d
-       = ((((...) + (...))
-	   + (case ... of
+       = ((((((((a + (: a b)) + (a : b)) + (((1 - 'c') - "abc") - 1.293))
+	      + ((\ x y z -> x) 42))
+	     + ((9 *)))
+	    + ((* 8)))
+	   + (case x of
 		Prelude.[]
-		  | ... -> ...
-		  | ... -> ...
-		  | ... -> ...
+		  | null x -> 99
+		  | otherwise -> 98
+		  | True -> 97
 		  where
-		      ...))
+		      null x = False))
 	  + ([z | z <- c, isSpace z]))
-	 + (let y = ... in ((...) + (...)) + ([..., ... .. ...]))
+	 + (let y = foo
+	    in
+	      (((((((y + [1, 2, 3, 4]) + (4, 3, 2, 1))
+		   + (4 :: {- implicit forall -} (Num a) => a))
+		  + (if 42 == 42.0 then 1 else 4))
+		 + ([1 .. ]))
+		+ ([2, 4 .. ]))
+	       + ([3 .. 5]))
+	      + ([4, 8 .. 999]))
 mat a b c d
       | foof a b = d
       | foof a c = d