Allow differents file encoding for the source

1 files changed, 6 insertions, 1 deletions

diff --git a/bin/qsp_parser.ml b/bin/qsp_parser.ml
index 4ed2ba7..f2b21f9 100644
--- a/bin/qsp_parser.ml
+++ b/bin/qsp_parser.ml
@@ -45,7 +45,12 @@ let () =
   let ic = Stdlib.open_in file_name in
   (*let lexer = Lexing.from_channel ~with_positions:true ic in*)
   let lexer = Sedlexing.Utf8.from_channel ic in
-  let result = Qparser.Analyzer.parse (module Qsp_syntax.Type_of) lexer in
+  let result =
+    Qparser.Analyzer.parse
+      (module Qsp_syntax.Type_of)
+      (module Sedlexing.Utf8)
+      lexer
+  in
   match result with
   | Ok f -> (
       let report = List.fold_left (f []) ~init:[] ~f:(filter_report filters) in