13 lines
586 B
Diff
13 lines
586 B
Diff
--- a/piqilib/piqi_json_parser.mll
|
|
+++ b/piqilib/piqi_json_parser.mll
|
|
@@ -189,8 +189,8 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
let len = lexbuf.lex_curr_pos - lexbuf.lex_start_pos in
|
|
let s = lexbuf.lex_buffer in
|
|
let start = lexbuf.lex_start_pos in
|
|
- check_adjust_utf8 v lexbuf s start len;
|
|
- Buffer.add_substring v.buf s start len
|
|
+ check_adjust_utf8 v lexbuf (Bytes.unsafe_to_string s) start len;
|
|
+ Buffer.add_subbytes v.buf s start len
|
|
|
|
let map_lexeme f lexbuf =
|
|
let len = lexbuf.lex_curr_pos - lexbuf.lex_start_pos in
|