From dd434c9ef7feb16ada5b12169a1aa2e3fb7ce29c Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Fri, 12 Apr 2013 18:19:55 +0200
Subject: [PATCH] forgot the case for strings

---
 json.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/json.ml b/json.ml
index 76c243c1..e0893414 100644
--- a/json.ml
+++ b/json.ml
@@ -66,6 +66,7 @@ let parse chars =
     | Some (Genlex.Kwd "true") -> junk tokens; Bool true
     | Some (Genlex.Kwd "false") -> junk tokens; Bool false
     | Some (Genlex.Kwd "null") -> junk tokens; Null
+    | Some (Genlex.String s) -> junk tokens; String s
     | _ -> raise (Stream.Error "expected JSON value")
   and read_list acc =
     match peek tokens with