break lists of lists on a list of delimiters

delimTake.hs

import Control.Applicative

-- delimTake takes until it either:
--   1) reaches the nth item (as "take N")
--   2) reaches an item containing a delimiter
delimTake :: (Eq a) => [a] -> Int -> [[a]] -> [[a]]
delimTake delimList n seq
        | snd brokenTake == [] = naiveTake
        | otherwise            = (fst brokenTake) ++ [fst breakDelimItem]
    where
        naiveTake = take n seq
        containsDelim = (\item -> or ((==) <$> delimList <*> item))
        brokenTake = break containsDelim naiveTake
        breakDelimItem = (break (\item -> elem item delimList) (head (snd brokenTake)))

testString = "hello; this is a test."
-- as a test:
main :: IO ()
main = do
        print testString
        print $ unwords (take 3 testWords)
        print $ unwords (delimTake ";." 3 testWords)
    where testWords = words testString