Implementing skipWhile1 in attoparsec

Question

Attoparsec provides the function takeWhile1 that consumes at least one character.

However, there is no analog for skipWhile. How can I implement this function skipWhile1?

Note: This question intentionally shows no research effort as it was answered Q&A-Style.

Answer 1

Another possible implementation:

import Control.Applicative

skipWhile1 p = skip p *> skipWhile p

This might actually be faster than @Uli's answer because takeWhile builds a result string, whereas skipWhile doesn't. Laziness might make them equivalent (ie. maybe takeWhile doesn't actually build the string if you don't use it); I can't test at the moment to verify this.

Answer 2

You can use Control.Monad.void together with takeWhile1 to simply ignore the result:

import Data.Attoparsec.Char8
import Control.Monad (void)

skipWhile1 :: (Char -> Bool) -> Parser ()
skipWhile1 = void . takeWhile1