summaryrefslogtreecommitdiff
path: root/compiler/PrePasses.ml
diff options
context:
space:
mode:
authorSon Ho2024-04-25 08:21:43 +0200
committerSon Ho2024-04-25 08:21:43 +0200
commit51214e534e26d473b9260befc967cfd287bb9eb3 (patch)
treeeb09a3852be8f20f14943b9fe52223f3b02ca330 /compiler/PrePasses.ml
parent5f2a388d1ff039cde0d78daaba58c191b404405e (diff)
parent1be37966ceea2510b911b119a96246b4657a62fd (diff)
Merge branch 'main' into option-take
Diffstat (limited to 'compiler/PrePasses.ml')
-rw-r--r--compiler/PrePasses.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/PrePasses.ml b/compiler/PrePasses.ml
index a46ef79c..c84cd39c 100644
--- a/compiler/PrePasses.ml
+++ b/compiler/PrePasses.ml
@@ -446,7 +446,7 @@ let apply_passes (crate : crate) : crate =
report to the user the fact that we will ignore the function body *)
let fmt = Print.Crate.crate_to_fmt_env crate in
let name = Print.name_to_string fmt f.name in
- save_error __FILE__ __LINE__ (Some f.meta)
+ save_error __FILE__ __LINE__ (Some f.item_meta.meta)
("Ignoring the body of '" ^ name ^ "' because of previous error");
{ f with body = None }
in