simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

forgot the case for strings

Browse source
This commit is contained in:
Simon Cruanes 2013-04-12 18:19:55 +02:00
parent 5ddff35b8d
commit dd434c9ef7
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
json.ml
View file

@ -66,6 +66,7 @@ let parse chars =
| Some (Genlex.Kwd "true") -> junk tokens; Bool true | Some (Genlex.Kwd "true") -> junk tokens; Bool true
| Some (Genlex.Kwd "false") -> junk tokens; Bool false | Some (Genlex.Kwd "false") -> junk tokens; Bool false
| Some (Genlex.Kwd "null") -> junk tokens; Null | Some (Genlex.Kwd "null") -> junk tokens; Null
| Some (Genlex.String s) -> junk tokens; String s
| _ -> raise (Stream.Error "expected JSON value") | _ -> raise (Stream.Error "expected JSON value")
and read_list acc = and read_list acc =
match peek tokens with match peek tokens with