[ghc-hetmet.git] / ghc / compiler / tests / reader / read003.hs

~(a,b,c) | nullity b    = a
         | nullity c    = a
         | otherwise    = a
         where
            nullity = null