dev-ml/tyxml: fix uutf patch

Package-Manager: portage-2.3.2

diff --git a/dev-ml/tyxml/files/uutf.patch b/dev-ml/tyxml/files/uutf.patch
index e7d0a3fa10c63ea6023cd7b970b55c0535a350ff..540d5c620f9a5adaeb03c7d987c8bbd48e9b8d4c 100644 (file)
--- a/dev-ml/tyxml/files/uutf.patch
+++ b/dev-ml/tyxml/files/uutf.patch
@@ -38,16 +38,3 @@ Index: tyxml-4.0.0/lib/xml_print.ml
             | `Malformed _ ->
                 Uutf.Buffer.add_utf_8 buffer Uutf.u_rep;
                 warn:=true)
-Index: tyxml-4.0.0/ppx/ppx_attribute_value.ml
-===================================================================
---- tyxml-4.0.0.orig/ppx/ppx_attribute_value.ml
-+++ tyxml-4.0.0/ppx/ppx_attribute_value.ml
-@@ -160,7 +160,7 @@ let char ?separated_by:_ ?default:_ loc
-   let c =
-     match next decoded with
-     | None -> Ppx_common.error loc "No character in attribute %s" name
--    | Some i when i <= 255 -> Char.chr i
-+    | Some i when Uchar.to_int i <= 255 -> Char.chr (Uchar.to_int i)
-     | Some _ ->
-       Ppx_common.error loc "Character out of range in attribute %s" name
-   in