diff options
author | Son Ho | 2023-12-21 19:23:29 +0100 |
---|---|---|
committer | Son Ho | 2023-12-21 19:23:29 +0100 |
commit | 2f681446b11739e650b1d6050b717da872be9022 (patch) | |
tree | 475ca390fb80d65735590e1be600239b597e1528 /compiler/PureUtils.ml | |
parent | ccfcadc3686e69c1b8a8c826ec14f3c0e1dfbd7b (diff) |
Simplify the type of the merged fwd/back functions
Diffstat (limited to '')
-rw-r--r-- | compiler/PureUtils.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/PureUtils.ml b/compiler/PureUtils.ml index d4aaba16..78d0b120 100644 --- a/compiler/PureUtils.ml +++ b/compiler/PureUtils.ml @@ -448,6 +448,7 @@ let mk_simpl_tuple_ty (tys : ty list) : ty = let mk_bool_ty : ty = TLiteral TBool let mk_unit_ty : ty = TAdt (TTuple, empty_generic_args) +let ty_is_unit ty : bool = ty = mk_unit_ty let mk_unit_rvalue : texpression = let id = AdtCons { adt_id = TTuple; variant_id = None } in |