[project @ 2001-08-22 12:24:41 by simonmar]
[ghc-hetmet.git] / ghc / tests / reader / should_fail / read003.hs
diff --git a/ghc/tests/reader/should_fail/read003.hs b/ghc/tests/reader/should_fail/read003.hs
deleted file mode 100644 (file)
index 8595312..0000000
+++ /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