@@ -56,9 +56,9 @@ streamUtf8 bs0 = Stream next (bs0 :!: S N N N N :!: 0) unknownLength
5656 {-# INLINE next #-}
5757 next st@(bs :!: s :!: i) =
5858 case s of
59− S (J a) N N N | U8.validate1 a ->
59+ S (J a) N _ _ | U8.validate1 a ->
6060 Yield (unsafeChr8 a) es
61− S (J a) (J b) N N | U8.validate2 a b ->
61+ S (J a) (J b) N _ | U8.validate2 a b ->
6262 Yield (U8.chr2 a b) es
6363 S (J a) (J b) (J c) N | U8.validate3 a b c ->
6464 Yield (U8.chr3 a b c) es