Fix a correction in the location identification in the unused variable parser

1 files changed, 1 insertions, 1 deletions

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