X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnExpr.lhs;h=35300e0b8759bd21d82a0296b1dfbffe807c1de9;hp=9b1f08e2dd02ce347e9df2f80d5b6418209f3a6f;hb=9241ac84d10f7e6b23841da2c0765275072ad7c1;hpb=f22c873e99d5b371a03d249febb89195a4fda2fc

diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs
index 9b1f08e..35300e0 100644
--- a/compiler/rename/RnExpr.lhs
+++ b/compiler/rename/RnExpr.lhs
@@ -177,6 +177,13 @@ rnExpr (HsHetMetCSP c e)
   = do { (e', fv_e) <- updLclEnv (\x -> x { tcl_hetMetLevel = tail (tcl_hetMetLevel x) }) $ rnLExpr e
        ; return (HsHetMetCSP c e', fv_e)
        }
+rnExpr (HsKappa matches)
+  = rnMatchGroup LambdaExpr matches	`thenM` \ (matches', fvMatch) ->
+    return (HsKappa matches', fvMatch)
+rnExpr (HsKappaApp fun arg)
+  = rnLExpr fun		`thenM` \ (fun',fvFun) ->
+    rnLExpr arg		`thenM` \ (arg',fvArg) ->
+    return (HsKappaApp fun' arg', fvFun `plusFV` fvArg)