From 992f344c83634fbf41174b0c660bf033743c923b Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Wed, 30 Jun 2010 00:55:27 -0700 Subject: Use simplified_ty in effect. --- src/boot/me/effect.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/boot/me/effect.ml b/src/boot/me/effect.ml index ab0c349e..795f1990 100644 --- a/src/boot/me/effect.ml +++ b/src/boot/me/effect.ml @@ -155,7 +155,7 @@ let function_effect_propagation_visitor | Ast.STMT_call (_, fn, _) -> let lower_to_callee_ty t = - match t with + match simplified_ty t with Ast.TY_fn (_, taux) -> lower_to s taux.Ast.fn_effect; | _ -> bug () "non-fn callee" -- cgit v1.2.3