ghc/compiler/tests/reader/read003.hs

   1 --!!! Irrefutable patterns + guards
   2 module Read003 where
   3
   4 ~(a,b,c) | nullity b    = a
   5          | nullity c    = a
   6          | otherwise    = a
   7          where
   8             nullity = null