[project @ 1996-01-08 20:28:12 by partain]
[ghc.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