blob: fbc2864d534801043027b3e59c3b2b2331dd96e6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
--- 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
|