Fix critical bug on batch read of deleted docs

VictorNicollet · Nov 5, 2012 · 3a96dd7 · 3a96dd7
1 parent ecc5306
commit 3a96dd7
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/couchDB_cache.ml b/src/couchDB_cache.ml
@@ -147,7 +147,9 @@ let fetch database =
 		    let docs   = BatList.filter_map begin fun json -> 
 		      try
 			Json.to_object (fun ~opt ~req -> 
-			  Some (Id.of_json (req "id"), req "doc")) json
+			  match req "doc" with 
+			    | (Json.Object _) as doc -> Some (Id.of_json (req "id"), doc)
+			    | _ -> None) json
 		      with _ -> None 
 		    end list in   
 		    let values = List.map