X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Ftests%2Freader%2Fshould_fail%2Fread003.hs;fp=ghc%2Ftests%2Freader%2Fshould_fail%2Fread003.hs;h=0000000000000000000000000000000000000000;hb=16acb4976514ab4b03c79d6845e3f0e98a1a33cf;hp=8595312137ab1dc9d6520f1bf1539f3308dd239d;hpb=f2eadfd5dfb23cc611e2540f46180bca7d095f15;p=ghc-hetmet.git

diff --git a/ghc/tests/reader/should_fail/read003.hs b/ghc/tests/reader/should_fail/read003.hs
deleted file mode 100644
index 8595312..0000000
--- a/ghc/tests/reader/should_fail/read003.hs
+++ /dev/null
@@ -1,8 +0,0 @@
--- !!! Irrefutable patterns + guards
-module Read003 where
-
-~(a,b,c) | nullity b	= a
-	 | nullity c	= a
-	 | otherwise	= a
-	 where
-	    nullity = null