diff options
| author | Son Ho | 2023-01-05 23:50:41 +0100 |
|---|---|---|
| committer | Son HO | 2023-02-03 11:21:46 +0100 |
| commit | 23ceb23847f2a5cd568278a47015f4d220f138c5 (patch) | |
| tree | ef94c4562f44842fad8ceb0293a7628b9f7de201 /compiler/PureUtils.ml | |
| parent | efba91b5cc65d83c3f4d8a0d282eeda520abe82a (diff) | |
Fix a minor issue in decompose_let_bindings
Diffstat (limited to '')
| -rw-r--r-- | compiler/PureUtils.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/PureUtils.ml b/compiler/PureUtils.ml index 4816f31f..a60bcd78 100644 --- a/compiler/PureUtils.ml +++ b/compiler/PureUtils.ml @@ -68,6 +68,11 @@ let mk_let (monadic : bool) (lv : typed_pattern) (re : texpression) let ty = next_e.ty in { e; ty } +let mk_tag (msg : string) (next_e : texpression) : texpression = + let e = Meta (Tag msg, next_e) in + let ty = next_e.ty in + { e; ty } + (** Type substitution *) let ty_substitute (tsubst : TypeVarId.id -> ty) (ty : ty) : ty = let obj = |