ocaml-uuseg/ocaml-uuseg.patch

--- /dev/null
+++ b/dune-project
@@ -0,0 +1 @@
+(lang dune 1.10)
--- /dev/null
+++ b/src/dune
@@ -0,0 +1,17 @@
+(library
+ (name uuseg)
+ (public_name uuseg)
+ (wrapped false)
+ (modules uuseg_base uuseg_buf uuseg_grapheme_cluster uuseg_word uuseg_sentence uuseg_line_break uuseg)
+ (libraries uchar uucp)
+ (flags :standard -w -50-39-37-32)
+)
+
+(library
+ (name uuseg_string)
+ (public_name uuseg.string)
+ (wrapped false)
+ (modules uuseg_string)
+ (libraries uuseg)
+ (flags :standard -w -50-39-37-32)
+)
--- a/src/uuseg_line_break.ml
+++ b/src/uuseg_line_break.ml
@@ -227,7 +227,7 @@
                                              s.l0_rewrite = SP -> true
   | (* LB8a *) _, ZWJ, _ -> false
   | (* LB9 implicitely entails  ¬(BK|CR|LF|NL|SP|ZW as X) × (CM|ZWJ) *)
-               _, x, (CM|ZWJ) when is_lb9_X s.l0_rewrite -> false
+               _, _x, (CM|ZWJ) when is_lb9_X s.l0_rewrite -> false
   | _ -> (* apply LB9/LB10 rewrite and match *)
       let l2m = lb10_rewrite s.l2_rewrite in
       let l1m = lb10_rewrite s.l1_rewrite in