diff options
| author | Chimrod <> | 2023-09-27 13:31:14 +0200 |
|---|---|---|
| committer | Chimrod <> | 2023-09-29 10:00:21 +0200 |
| commit | 40f7b4c7398db2b832b71e3dfb8afb53116fad51 (patch) | |
| tree | fc36e0fe685a3c1bc36a6d8821fbdd369d75a40c /bin/qsp_parser.ml | |
| parent | 46fd5a31d2e07b9df10d07dd900b529aca06a795 (diff) | |
Switched to sedlex instead of ocamllex
Diffstat (limited to 'bin/qsp_parser.ml')
| -rw-r--r-- | bin/qsp_parser.ml | 3 |
1 files changed, 2 insertions, 1 deletions
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 -> ( |