[project @ 1996-01-08 20:28:12 by partain]
[ghc-hetmet.git] / ghc / compiler / tests / reader / read003.hs
1 ~(a,b,c) | nullity b    = a
2          | nullity c    = a
3          | otherwise    = a
4          where
5             nullity = null