X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FdeSugar%2FCheck.lhs;h=517dc79398dc999cb8ac974308f47747e3703035;hp=0b2dc088597c648fcf55a8eeba3aeda39738743c;hb=5dc9a4504ea4d3df462081a7dbfde0431eac133e;hpb=e6e4036c03b21295e6457d0443106cf4e2830f4a

diff --git a/compiler/deSugar/Check.lhs b/compiler/deSugar/Check.lhs
index 0b2dc08..517dc79 100644
--- a/compiler/deSugar/Check.lhs
+++ b/compiler/deSugar/Check.lhs
@@ -675,6 +675,8 @@ simplify_pat (DictPat dicts methods)
        num_of_d_and_ms	 = length dicts + length methods
        dict_and_method_pats = map VarPat (dicts ++ methods)
 
+simplify_pat (CoPat co pat ty) = simplify_pat pat 
+
 -----------------
 simplify_con con (PrefixCon ps)   = PrefixCon (map simplify_lpat ps)
 simplify_con con (InfixCon p1 p2) = PrefixCon [simplify_lpat p1, simplify_lpat p2]