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 | |
parent | 46fd5a31d2e07b9df10d07dd900b529aca06a795 (diff) |
Switched to sedlex instead of ocamllex
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 -> ( |