@@ -278,10 +278,11 @@ head t = S.head (stream t)
278uncons :: Text -> Maybe (Char, Text)
278uncons :: Text -> Maybe (Char, Text)
279uncons t@(Text arr off len)
279uncons t@(Text arr off len)
280 | len <= 0 = Nothing
280 | len <= 0 = Nothing
281− | otherwise = Just (c, Text arr (off+d) (len-d))
281+ | otherwise = Just (c, textP arr (off+d) (len-d))
282 where (c,d) = iter t 0
282 where (c,d) = iter t 0
283{-# INLINE uncons #-}
283{-# INLINE uncons #-}
285+-- | Lifted from Control.Arrow and specialized.
285second :: (b -> c) -> (a,b) -> (a,c)
286second :: (b -> c) -> (a,b) -> (a,c)
286second f (a, b) = (a, f b)
287second f (a, b) = (a, f b)