diff options
Diffstat (limited to '')
| -rw-r--r-- | src/PureUtils.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/PureUtils.ml b/src/PureUtils.ml index 7d298f13..032d65d0 100644 --- a/src/PureUtils.ml +++ b/src/PureUtils.ml @@ -485,7 +485,7 @@ let get_fun_effect_info (use_state : bool) (fun_id : A.fun_id) { can_fail = true; input_state; output_state } | A.Assumed aid -> { - can_fail = Assumed.assumed_is_monadic aid; + can_fail = Assumed.assumed_can_fail aid; input_state = false; output_state = false; } |