[project @ 1997-05-26 05:58:06 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
index 0bb8a24..a986760 100644 (file)
--- a/ghc/compiler/tests/reader/read003.hs
+++ b/ghc/compiler/tests/reader/read003.hs
@@ -1,3 +1,6 @@
+--!!! Irrefutable patterns + guards
+module Read003 where
+
 ~(a,b,c) | nullity b   = a
         | nullity c    = a
         | otherwise    = a