@@ -68,7 +68,7 @@ streamUtf8 onErr bs0 = Stream next (T bs0 S0 0) unknownSize
68 Yield (U8.chr2 a b) (T bs S0 (i+2))
68 Yield (U8.chr2 a b) (T bs S0 (i+2))
69 | i + 2 < len && U8.validate3 a b c =
69 | i + 2 < len && U8.validate3 a b c =
70 Yield (U8.chr3 a b c) (T bs S0 (i+3))
70 Yield (U8.chr3 a b c) (T bs S0 (i+3))
71− | i + 4 < len && U8.validate4 a b c d =
71+ | i + 3 < len && U8.validate4 a b c d =
72 Yield (U8.chr4 a b c d) (T bs S0 (i+4))
72 Yield (U8.chr4 a b c d) (T bs S0 (i+4))
73 where len = B.length ps
73 where len = B.length ps
74 a = B.unsafeIndex ps i
74 a = B.unsafeIndex ps i