X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Ftests%2Freader%2Fshould_fail%2Fread003.stderr;h=c2219e64e1ddfe32133128a6824bb00b5dbacf21;hb=a0953bd37ffd393f9690fbb429f1906598c967cf;hp=7b24e35154eda1c806e2dfcad9e51cfdf07c6b29;hpb=bf0c937e55c3f5dddd4244cb9dce4d6094793d8f;p=ghc-hetmet.git

diff --git a/ghc/tests/reader/should_fail/read003.stderr b/ghc/tests/reader/should_fail/read003.stderr
index 7b24e35..c2219e6 100644
--- a/ghc/tests/reader/should_fail/read003.stderr
+++ b/ghc/tests/reader/should_fail/read003.stderr
@@ -1,15 +1,4 @@
 
-==================== Parser ====================
-module Read003 where
-~(a, b, c)
-    | nullity b = a
-    | nullity c = a
-    | otherwise = a
-    where
-	nullity = null
-
-
-
 read003.hs:4:
     Occurs check: cannot construct the infinite type: t = (t, [a], t1)
 	Expected type: (t, [a], t1)