Simplify patterns.
authorBryan O'Sullivan <bos@serpentine.com>
Sat, 23 May 2009 01:46:24 +0000 (01:46 +0000)
committerBryan O'Sullivan <bos@serpentine.com>
Sat, 23 May 2009 01:46:24 +0000 (01:46 +0000)
--HG--
extra : convert_revision : a07441ff3e1c24daec41b833c1ae27a4febc5c6b

Data/Text/Lazy/Encoding/Fusion.hs

index 0d1f8f4..558b0ce 100644 (file)
@@ -56,9 +56,9 @@ streamUtf8 bs0 = Stream next (bs0 :!: S N N N N :!: 0) unknownLength
       {-# INLINE next #-}
       next st@(bs :!: s :!: i) =
         case s of
-          S (J a) N N N             | U8.validate1 a ->
+          S (J a) N _ _             | U8.validate1 a ->
             Yield (unsafeChr8 a) es
-          S (J a) (J b) N N         | U8.validate2 a b ->
+          S (J a) (J b) N _         | U8.validate2 a b ->
             Yield (U8.chr2 a b) es
           S (J a) (J b) (J c) N     | U8.validate3 a b c ->
             Yield (U8.chr3 a b c) es