diff options
| author | Son Ho | 2024-04-25 08:21:43 +0200 |
|---|---|---|
| committer | Son Ho | 2024-04-25 08:21:43 +0200 |
| commit | 51214e534e26d473b9260befc967cfd287bb9eb3 (patch) | |
| tree | eb09a3852be8f20f14943b9fe52223f3b02ca330 /compiler/RegionsHierarchy.ml | |
| parent | 5f2a388d1ff039cde0d78daaba58c191b404405e (diff) | |
| parent | 1be37966ceea2510b911b119a96246b4657a62fd (diff) | |
Merge branch 'main' into option-take
Diffstat (limited to '')
| -rw-r--r-- | compiler/RegionsHierarchy.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/RegionsHierarchy.ml b/compiler/RegionsHierarchy.ml index 713cdef9..21be89ee 100644 --- a/compiler/RegionsHierarchy.ml +++ b/compiler/RegionsHierarchy.ml @@ -323,7 +323,8 @@ let compute_regions_hierarchies (type_decls : type_decl TypeDeclId.Map.t) List.map (fun ((fid, d) : FunDeclId.id * fun_decl) -> ( FRegular fid, - (Types.name_to_string env d.name, d.signature, Some d.meta) )) + (Types.name_to_string env d.name, d.signature, Some d.item_meta.meta) + )) (FunDeclId.Map.bindings fun_decls) in let assumed = |