clippings-0.1.3: src/Text/Parsec/Combinator/Extras.hs

module Text.Parsec.Combinator.Extras (
  but,
  tryBut1,
  tryMaybe,
  tryString
) where

import Text.Parsec.String (Parser)
import Text.Parsec (many, many1, noneOf, try, optionMaybe, string)

but :: String -> Parser String
but = many . noneOf

tryBut1 :: String -> Parser String
tryBut1 = try . many1 . noneOf

tryMaybe :: Parser a -> Parser (Maybe a)
tryMaybe = optionMaybe . try

tryString :: String -> Parser String
tryString = try . string