diff options
author | Son Ho | 2023-01-13 21:44:26 +0100 |
---|---|---|
committer | Son HO | 2023-02-03 11:21:46 +0100 |
commit | 71863baf896d0f6c07473fce16e7568aa39064bc (patch) | |
tree | 9b3e3c2143c38e3a1b1ead64c315781c23ef4524 /tests/fstar/misc/Constants.fst | |
parent | 5eca1a621a6446dfc3e5e63e76f4f810ece9c6e3 (diff) |
Do not unfold the monadic lets for the generated F* code
Diffstat (limited to '')
-rw-r--r-- | tests/fstar/misc/Constants.fst | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/tests/fstar/misc/Constants.fst b/tests/fstar/misc/Constants.fst index 9b90e9c7..1a2f4133 100644 --- a/tests/fstar/misc/Constants.fst +++ b/tests/fstar/misc/Constants.fst @@ -96,14 +96,7 @@ let q3_c : i32 = eval_global q3_body (** [constants::get_z2] *) let get_z2_fwd : result i32 = - begin match get_z1_fwd with - | Fail e -> Fail e - | Return i -> - begin match add_fwd i q3_c with - | Fail e -> Fail e - | Return i0 -> add_fwd q1_c i0 - end - end + let* i = get_z1_fwd in let* i0 = add_fwd i q3_c in add_fwd q1_c i0 (** [constants::S1] *) let s1_body : result u32 = Return 6 |