diff options
| author | Son Ho | 2022-10-27 12:12:29 +0200 |
|---|---|---|
| committer | Son HO | 2022-10-27 12:58:47 +0200 |
| commit | 4671daa0899d3c897cb28baeb5e62b2486fbeba7 (patch) | |
| tree | 27742cf37811f8515976a3eb33cd43424c9ad4f9 /compiler/PureUtils.ml | |
| parent | 5cdea01dea654713b887017efe80e620f8e14932 (diff) | |
Reformat the code
Diffstat (limited to 'compiler/PureUtils.ml')
| -rw-r--r-- | compiler/PureUtils.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/PureUtils.ml b/compiler/PureUtils.ml index f5756046..30a89fee 100644 --- a/compiler/PureUtils.ml +++ b/compiler/PureUtils.ml @@ -42,7 +42,8 @@ let compute_primitive_value_ty (cv : primitive_value) : ty = | Char _ -> Char | String _ -> Str -let mk_typed_pattern_from_primitive_value (cv : primitive_value) : typed_pattern = +let mk_typed_pattern_from_primitive_value (cv : primitive_value) : typed_pattern + = let ty = compute_primitive_value_ty cv in { value = PatConstant cv; ty } |