[project @ 1999-02-06 16:10:18 by sof]

New regression test - overlapped patterns involving labelled fields.

ghc/tests/deSugar/should_compile/ds002.stderr

+
 ds002.hs:7: Pattern match(es) are overlapped in the definition of function `f':
 	    f y = ...
 	    f z = ...

ghc/tests/deSugar/should_compile/ds003.stderr

+
 ds003.hs:5: Pattern match(es) are overlapped in the definition of function `f':
 	    f (x : (x1 : (x2 : x3))) ~(y, ys) z = ...
 	    f x y True = ...

ghc/tests/deSugar/should_compile/ds019.stderr

+
 ds019.hs:5: Pattern match(es) are overlapped in the definition of function `f':
 	    f d (j, k) p = ...
 	    f (e, f, g) l q = ...

ghc/tests/deSugar/should_compile/ds020.stderr

+
 ds020.hs:5: Pattern match(es) are overlapped in the definition of function `a':
 	    a ~(~[], ~[], ~[]) = ...
 

ghc/tests/deSugar/should_compile/ds022.stderr

+
 ds022.hs:20: Pattern match(es) are overlapped in the definition of function `i':
 	    i 1 1.1 = ...
 	    i 2 2.2 = ...

ghc/tests/deSugar/should_compile/ds040.stderr

+
 ds040.hs:7: Pattern match(es) are overlapped in the definition of function `^^^^':
 	    ^^^^ _ _ = ...
 

ghc/tests/deSugar/should_compile/ds043.hs

+-- !!! Checking the exhaustiveness of constructor
+-- !!! with labelled fields.
+module ShouldCompile where
+
+data E = B { a,b,c,d,e,f :: Bool }
+
+bug x =
+ case x of
+  B _ _ _ _ True False    -> undefined
+  B {e=True, f=False}     -> undefined
+  B {a=a,f=False,e=False} -> undefined

ghc/tests/deSugar/should_compile/ds043.stderr

+
+ds043.hs:8: Pattern match(es) are overlapped in a group of case alternatives beginning
+						 (B _ _ _ _ True False):
+	    B {e = True, f = False} -> ...
+
+