Glob-like pattern Boyer-Moore

globBoyerMoore.hs

-- Эта функция очень похожа на предыдущую. Она находит первое
-- вхожение подстроки и возвращает остаток
strip :: ByteString -> ByteString -> Maybe ByteString
strip pat
  | null pat = Just
strip pat = breaker
  where
    !patLen = length pat
    searcher = nonOverlappingIndices pat
    breaker str = case searcher str of
                    []    -> Nothing
                    (i:_) -> Just $ snd $ splitAt (i + patLen) str