diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/boot/me/effect.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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" |