summaryrefslogtreecommitdiff
path: root/compiler/RegionsHierarchy.ml
diff options
context:
space:
mode:
authorGuillaume Boisseau2024-06-24 14:27:11 +0200
committerGitHub2024-06-24 14:27:11 +0200
commite2e2e17c71ed389cd97b81f35d2bdcfad5c9c59c (patch)
tree141566558cff2e1e496e32691be1dc843fc58da8 /compiler/RegionsHierarchy.ml
parent25e294f859d7899ee45e44f21d710b33d610942e (diff)
parent16aa66aabffeaaebc03c264b89387f010750dac3 (diff)
Merge pull request #258 from Nadrieril/bump-charon
Diffstat (limited to 'compiler/RegionsHierarchy.ml')
-rw-r--r--compiler/RegionsHierarchy.ml5
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/RegionsHierarchy.ml b/compiler/RegionsHierarchy.ml
index c608c02e..6c5253b8 100644
--- a/compiler/RegionsHierarchy.ml
+++ b/compiler/RegionsHierarchy.ml
@@ -322,8 +322,9 @@ 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.item_meta.span)
- ))
+ ( Types.name_to_string env d.item_meta.name,
+ d.signature,
+ Some d.item_meta.span ) ))
(FunDeclId.Map.bindings fun_decls)
in
let assumed =