From 33e0056abf43f79420269bc37bf16a86dba227c3 Mon Sep 17 00:00:00 2001 From: Alexis Ballier Date: Thu, 1 Dec 2016 18:54:39 +0100 Subject: [PATCH] dev-ml/tyxml: fix uutf patch Package-Manager: portage-2.3.2 --- dev-ml/tyxml/files/uutf.patch | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/dev-ml/tyxml/files/uutf.patch b/dev-ml/tyxml/files/uutf.patch index e7d0a3fa10c6..540d5c620f9a 100644 --- 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 -- 2.26.2