diff options
Diffstat (limited to 'lib/syntax')
| -rw-r--r-- | lib/syntax/write_only.ml | 2 |
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 |