X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDesugar.lhs;fp=ghc%2Fcompiler%2FdeSugar%2FDesugar.lhs;h=45dc113cc1c971113b08110b57df5c3ca2971d28;hb=f85903abe9103e545ea5b1dc6fdd6b672da4f3f2;hp=c6e75badc51462c1886b8de1356263fe671cbf71;hpb=f6baf3ba39bb63a1159935a55c39214b4b51e0d3;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/Desugar.lhs b/ghc/compiler/deSugar/Desugar.lhs
index c6e75ba..45dc113 100644
--- a/ghc/compiler/deSugar/Desugar.lhs
+++ b/ghc/compiler/deSugar/Desugar.lhs
@@ -263,7 +263,7 @@ ppr_ds_rules rules
 
 \begin{code}
 dsRule :: Module -> IdSet -> LRuleDecl Id -> DsM (Maybe CoreRule)
-dsRule mod in_scope (L loc (HsRule name act vars lhs rhs))
+dsRule mod in_scope (L loc (HsRule name act vars lhs tv_lhs rhs fv_rhs))
   = putSrcSpanDs loc $ 
     do	{ let bndrs     = [var | RuleBndr (L _ var) <- vars]
 	; lhs'  <- dsLExpr lhs