testsuite/tests/parser/should_fail/readFail003.hs


1
2
3
4
5
6
7
8

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