A small simplification.
--HG--
extra : convert_revision : 7b58a0e88c85bedf76dc8e28440ff77548cc6737
commite7872c29b6db04df072cf75e87f5d3b80af54f1b
authorBryan O'Sullivan <bos@serpentine.com>
dateThu 19 Aug 2010, 19:33 (16 years ago)
parent0463c40
Data/Text/Encoding/Fusion.hs+1−2
@@ -75,9 +75,8 @@ streamUtf8 onErr bs = Stream next 0 (maxSize l)
7575 | i+1 < l && U8.validate2 x1 x2 = Yield (U8.chr2 x1 x2) (i+2)
7676 | i+2 < l && U8.validate3 x1 x2 x3 = Yield (U8.chr3 x1 x2 x3) (i+3)
7777 | i+3 < l && U8.validate4 x1 x2 x3 x4 = Yield (U8.chr4 x1 x2 x3 x4) (i+4)
78− | otherwise = decodeError "streamUtf8" "UTF-8" onErr mx (i+1)
78+ | otherwise = decodeError "streamUtf8" "UTF-8" onErr (Just x1) (i+1)
7979 where
80− mx = if i >= l then Nothing else Just x1
8180 x1 = idx i
8281 x2 = idx (i + 1)
8382 x3 = idx (i + 2)