From 04cd08f13f7d5695e7b919b58e9307381e7162ee Mon Sep 17 00:00:00 2001 From: Vincent Botbol Date: Mon, 24 Sep 2018 19:27:51 +0200 Subject: [PATCH] Hotfix: print unhandled cases --- vendors/ocplib-json-typed/lib_json_typed/json_repr.ml | 1 + 1 file changed, 1 insertion(+) diff --git a/vendors/ocplib-json-typed/lib_json_typed/json_repr.ml b/vendors/ocplib-json-typed/lib_json_typed/json_repr.ml index 8f7b003a4..12a235034 100644 --- a/vendors/ocplib-json-typed/lib_json_typed/json_repr.ml +++ b/vendors/ocplib-json-typed/lib_json_typed/json_repr.ml @@ -128,6 +128,7 @@ let pp_string ppf s = | '\b' -> Format.fprintf ppf "\\b" | '\t' -> Format.fprintf ppf "\\t" | '\\' -> Format.fprintf ppf "\\\\" + | '\x00' .. '\x1F' as c -> Format.fprintf ppf "\\u%04x" (Char.code c) | c -> Format.fprintf ppf "%c" c done ; Format.fprintf ppf "\""