break package:text-short

break :: (Char -> Bool) -> ShortText -> (ShortText, ShortText)
text-short Data.Text.Short
Variant of span with negated predicate. 
>>> break (> 'c') "abcdabcd"
("abc","dabcd")

break p t == span (not . p) t

fst (break p t) <> snd (break p t) == t
breakEnd :: (Char -> Bool) -> ShortText -> (ShortText, ShortText)
text-short Data.Text.Short
Variant of spanEnd with negated predicate. 
>>> breakEnd (< 'c') "abcdabcd"
("abcdab","cd")

breakEnd p t == spanEnd (not . p) t

fst (breakEnd p t) <> snd (breakEnd p t) == t