@@ -838,13 +838,13 @@ break :: Text -> Text -> (Text, Text)
838838break pat src
839839 | null pat = emptyError "break"
840840 | otherwise = case indices pat src of
841− [] -> (src, empty)
841+ [] -> (src, empty)
842842 (x:_) -> go x src
843843 where
844844 go _ Empty = (empty, empty)
845845 go x (Chunk c@(T.Text arr off len) cs)
846− | y >= len = let (h,t) = go (x-fromIntegral len) cs
847− in (Chunk c h, t)
846+ | y >= len = let (h,t) = go (x-fromIntegral len) cs
847+ in (Chunk c h, t)
848848 | otherwise = (chunk (textP arr off y) empty,
849849 chunk (textP arr (off+y) (len-y)) cs)
850850 where y = fromIntegral x