Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PackedString/Break.hs
module NHC.PackedString where import Prelude hiding(break,span) import DPackedString import Span break :: (Char -> Bool) -> PackedString -> (PackedString, PackedString) break f p = span (not . f) p