From 5dc9a4504ea4d3df462081a7dbfde0431eac133e Mon Sep 17 00:00:00 2001 From: Manuel M T Chakravarty Date: Sun, 6 Aug 2006 21:00:58 +0000 Subject: Add CoPat stuff Wed Jul 19 09:55:27 EDT 2006 kevind@bu.edu --- compiler/deSugar/Check.lhs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'compiler/deSugar/Check.lhs') diff --git a/compiler/deSugar/Check.lhs b/compiler/deSugar/Check.lhs index 0b2dc08859..517dc79398 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] -- cgit v1.2.1