testsuite/tests/parser/should_fail/readFail003.hs


1
2
3
4
5
6
7
8

-- !!! Irrefutable patterns + guards
module Read003 where
import GHC.List; import Prelude hiding (null)
~(a,b,c) | nullity b    = a
         | nullity c    = a
         | otherwise    = a
         where
            nullity = null