@@ -838,13 +838,13 @@ break :: Text -> Text -> (Text, Text)
838break pat src
838break pat src
839 | null pat = emptyError "break"
839 | null pat = emptyError "break"
840 | otherwise = case indices pat src of
840 | otherwise = case indices pat src of
841− [] -> (src, empty)
841+ [] -> (src, empty)
842 (x:_) -> go x src
842 (x:_) -> go x src
844 go _ Empty = (empty, empty)
844 go _ Empty = (empty, empty)
845 go x (Chunk c@(T.Text arr off len) cs)
845 go x (Chunk c@(T.Text arr off len) cs)
846− | y >= len = let (h,t) = go (x-fromIntegral len) cs
846+ | y >= len = let (h,t) = go (x-fromIntegral len) cs
847− in (Chunk c h, t)
847+ in (Chunk c h, t)
848 | otherwise = (chunk (textP arr off y) empty,
848 | otherwise = (chunk (textP arr off y) empty,
849 chunk (textP arr (off+y) (len-y)) cs)
849 chunk (textP arr (off+y) (len-y)) cs)
850 where y = fromIntegral x
850 where y = fromIntegral x