[project @ 1997-07-31 02:22:44 by sof]
[ghc-hetmet.git] / ghc / compiler / tests / reader / read003.hs
diff --git a/ghc/compiler/tests/reader/read003.hs b/ghc/compiler/tests/reader/read003.hs
deleted file mode 100644 (file)
index a986760..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