diff options
| author | Son HO | 2024-03-17 05:10:36 +0100 |
|---|---|---|
| committer | GitHub | 2024-03-17 05:10:36 +0100 |
| commit | d56946242859e0d375c1d44585b9da6d5fbe94cb (patch) | |
| tree | 4589586257210809913e225192a15464cb91851f /compiler/ExtractBase.ml | |
| parent | c33a9807cf6aa21b2364449ee756ebf93de19eca (diff) | |
| parent | ee3e26e7b639bc7282d0c3777f9460e975ef232f (diff) | |
Merge pull request #91 from AeneasVerif/son/hax
Prepare the merge in hax
Diffstat (limited to 'compiler/ExtractBase.ml')
| -rw-r--r-- | compiler/ExtractBase.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/ExtractBase.ml b/compiler/ExtractBase.ml index 5e97cd21..297a1d22 100644 --- a/compiler/ExtractBase.ml +++ b/compiler/ExtractBase.ml @@ -1682,7 +1682,7 @@ let ctx_compute_var_basename (ctx : extraction_ctx) (basename : string option) | TLiteral lty -> ( match lty with TBool -> "b" | TChar -> "c" | TInteger _ -> "i") | TArrow _ -> "f" - | TTraitType (_, _, name) -> name_from_type_ident name) + | TTraitType (_, name) -> name_from_type_ident name) (** Generates a type variable basename. *) let ctx_compute_type_var_basename (_ctx : extraction_ctx) (basename : string) : |