diff options
author | Son Ho | 2022-05-04 16:21:29 +0200 |
---|---|---|
committer | Son Ho | 2022-05-04 16:21:29 +0200 |
commit | c699758eaf67a58df3fd30c01bf2d05dd17586f5 (patch) | |
tree | da61298f800dec729488b7970117825d8ecfaa82 /src/PureUtils.ml | |
parent | 725802f22e8ead231f9b26f55cdc33030361017f (diff) |
Make minor modifications
Diffstat (limited to 'src/PureUtils.ml')
-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; } |