@@ -278,10 +278,11 @@ head t = S.head (stream t)
278278uncons :: Text -> Maybe (Char, Text)
279279uncons t@(Text arr off len)
280280 | len <= 0 = Nothing
281− | otherwise = Just (c, Text arr (off+d) (len-d))
281+ | otherwise = Just (c, textP arr (off+d) (len-d))
282282 where (c,d) = iter t 0
283283{-# INLINE uncons #-}
284284
285+-- | Lifted from Control.Arrow and specialized.
285286second :: (b -> c) -> (a,b) -> (a,c)
286287second f (a, b) = (a, f b)
287288