Parsec - a combinator to drop 'water'

Poor man's island parsing with Parsec, water drops lines until the parser p succeeds.
(Somehow Blogger seems to drop the whitespace before where)

water :: Parser a -> Parser a
water p = p <|> do { line; water p }
where line = manyTill anyChar newline