= 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)