diff options
| -rw-r--r-- | bin/qsp_parser.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/bin/qsp_parser.ml b/bin/qsp_parser.ml index 5a34ab2..6d045b8 100644 --- a/bin/qsp_parser.ml +++ b/bin/qsp_parser.ml @@ -131,7 +131,9 @@ let () = | ".qsrc" -> (* The source file are in UTF-8, and we can use the file line number as we have only a single location. *) - (Sedlexing.Utf8.from_channel ic, { parameters with reset_line = false }) + ( Sedlexing.Utf8.from_channel ic, + { parameters with reset_line = parameters.Args.reset_line || false } + ) | ".txt" -> (Sedlexing.Utf16.from_channel ic (Some Little_endian), parameters) | _ -> raise (Failure "unknown extension") |