Hotfix: print unhandled cases
This commit is contained in:
parent
8d817d62c8
commit
04cd08f13f
@ -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 "\""
|
||||||
|
Loading…
Reference in New Issue
Block a user