[project @ 1996-01-08 20:28:12 by partain]

[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
new file mode 100644 (file)
index 0000000..0bb8a24
--- /dev/null
+++ b/ghc/compiler/tests/reader/read003.hs
@@ -0,0 +1,5 @@
+~(a,b,c) | nullity b   = a
+        | nullity c    = a
+        | otherwise    = a
+        where
+           nullity = null