diff options
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/dune | 1 | ||||
| -rw-r--r-- | bin/qsp_parser.ml | 3 |
2 files changed, 3 insertions, 1 deletions
@@ -2,6 +2,7 @@ (public_name qsp_parser) (name qsp_parser) (libraries + sedlex qsp_syntax qparser) diff --git a/bin/qsp_parser.ml b/bin/qsp_parser.ml index af12abe..4ed2ba7 100644 --- a/bin/qsp_parser.ml +++ b/bin/qsp_parser.ml @@ -43,7 +43,8 @@ let () = let file_name = List.hd file_names in let ic = Stdlib.open_in file_name in - let lexer = Lexing.from_channel ~with_positions:true ic 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 match result with | Ok f -> ( |