From 9e7b9de243e488e15d2c7528ce64e569eba8add2 Mon Sep 17 00:00:00 2001
From: Chimrod <>
Date: Fri, 15 Nov 2024 18:45:34 +0100
Subject: Fix a correction in the location identification in the unused
 variable parser

---
 lib/syntax/write_only.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/syntax/write_only.ml')

diff --git a/lib/syntax/write_only.ml b/lib/syntax/write_only.ml
index e77ad88..ec2e368 100644
--- a/lib/syntax/write_only.ml
+++ b/lib/syntax/write_only.ml
@@ -180,7 +180,7 @@ module Location = struct
 
   let location : context -> S.pos -> instruction list -> t =
    fun context pos instructions ->
-    let file_name = (fst pos).Lexing.pos_fname in
+    let file_name = (snd pos).Lexing.pos_fname in
     ignore pos;
     ignore context;
     let () = List.iter ~f:(fun v -> v file_name context) instructions in
-- 
cgit v1.2.3