Json: escape extended ascii characters

ocaml · Jun 12, 2018 · cbf9592 · cbf9592
1 parent e211cd6
commit cbf9592
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core/opamJson.ml b/src/core/opamJson.ml
@@ -27,7 +27,8 @@ let adds_esc b s =
       match String.get s i with
       | '"' -> flush b start i; adds b "\\\""; loop next next
       | '\\' -> flush b start i; adds b "\\\\"; loop next next
-      | '\x00' .. '\x1F' | '\x7F' (* US-ASCII control chars *) as c ->
+      | '\x00' .. '\x1F' | '\x7F' (* US-ASCII control chars *)
+      | '\x80' .. '\xFF' (* Extended ASCII chars *) as c ->
           flush b start i;
           adds b (Printf.sprintf "\\u%04X" (Char.code c));
           loop next next