Hotfix: print unhandled cases

This commit is contained in:
Vincent Botbol 2018-09-24 19:27:51 +02:00
parent 8d817d62c8
commit 04cd08f13f
No known key found for this signature in database
GPG Key ID: A2CE1BDBED95DA38

View File

@ -128,6 +128,7 @@ let pp_string ppf s =
| '\b' -> Format.fprintf ppf "\\b" | '\b' -> Format.fprintf ppf "\\b"
| '\t' -> Format.fprintf ppf "\\t" | '\t' -> Format.fprintf ppf "\\t"
| '\\' -> Format.fprintf ppf "\\\\" | '\\' -> Format.fprintf ppf "\\\\"
| '\x00' .. '\x1F' as c -> Format.fprintf ppf "\\u%04x" (Char.code c)
| c -> Format.fprintf ppf "%c" c | c -> Format.fprintf ppf "%c" c
done ; done ;
Format.fprintf ppf "\"" Format.fprintf ppf "\""