pyrox.dev
1--- a/piqilib/piqi_json_parser.mll
2+++ b/piqilib/piqi_json_parser.mll
3@@ -189,8 +189,8 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
4 let len = lexbuf.lex_curr_pos - lexbuf.lex_start_pos in
5 let s = lexbuf.lex_buffer in
6 let start = lexbuf.lex_start_pos in
7- check_adjust_utf8 v lexbuf s start len;
8- Buffer.add_substring v.buf s start len
9+ check_adjust_utf8 v lexbuf (Bytes.unsafe_to_string s) start len;
10+ Buffer.add_subbytes v.buf s start len
11
12 let map_lexeme f lexbuf =
13 let len = lexbuf.lex_curr_pos - lexbuf.lex_start_pos in