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"
|
||||
| '\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 "\""
|
||||
|
Loading…
Reference in New Issue
Block a user