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 /compiler | |
| parent | 5eca1a621a6446dfc3e5e63e76f4f810ece9c6e3 (diff) | |
Do not unfold the monadic lets for the generated F* code
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/Driver.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/Driver.ml b/compiler/Driver.ml index dfe4e908..73a2c974 100644 --- a/compiler/Driver.ml +++ b/compiler/Driver.ml @@ -140,8 +140,9 @@ let () = let _ = match !backend with | FStar -> - (* F* supports monadic notations, but the encoding loses information *) - unfold_monadic_let_bindings := true + (* Some patterns are not supported *) + decompose_monadic_let_bindings := false; + decompose_nested_let_patterns := false | Coq -> (* Some patterns are not supported *) decompose_monadic_let_bindings := true; |