@@ -332,10 +332,10 @@ append xs ys = foldrChunks Chunk ys xs
332332-- | /O(1)/ Returns the first character and rest of a 'Text', or
333333-- 'Nothing' if empty. Subject to array fusion.
334334uncons :: Text -> Maybe (Char, Text)
335−uncons Empty = Nothing
336−uncons (Chunk t ts) =
337− Just (T.unsafeHead t,
338− if T.compareLength t 1 == EQ then ts else Chunk (T.unsafeTail t) ts)
335+uncons Empty = Nothing
336+uncons (Chunk t ts) = Just (T.unsafeHead t, ts')
337+ where ts' | T.compareLength t 1 == EQ = ts
338+ | otherwise = Chunk (T.unsafeTail t) ts
339339{-# INLINE uncons #-}
340340
341341-- | /O(1)/ Returns the first character of a 'Text', which must be