module Parsers.Utils.Attoparsec.Text
  ( module Parsers.Utils.Attoparsec.Text
  , module Data.Attoparsec.Text
  ) where

import Data.Attoparsec.Combinator
import Data.Attoparsec.Text
import Data.Char (Char)
import Data.Function ((.))
import Data.Text (Text)
import qualified Data.Attoparsec.Text as AP.Text

token :: Text -> AP.Text.Parser Text
token :: Text -> Parser Text
token = Parser Text -> Parser Text
forall i a. Parser i a -> Parser i a
try (Parser Text -> Parser Text)
-> (Text -> Parser Text) -> Text -> Parser Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Parser Text
AP.Text.string

oneOf :: [Char] -> AP.Text.Parser Char
oneOf :: [Char] -> Parser Char
oneOf = (Char -> Bool) -> Parser Char
AP.Text.satisfy ((Char -> Bool) -> Parser Char)
-> ([Char] -> Char -> Bool) -> [Char] -> Parser Char
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Char] -> Char -> Bool
AP.Text.inClass

noneOf :: [Char] -> AP.Text.Parser Char
noneOf :: [Char] -> Parser Char
noneOf = (Char -> Bool) -> Parser Char
AP.Text.satisfy ((Char -> Bool) -> Parser Char)
-> ([Char] -> Char -> Bool) -> [Char] -> Parser Char
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Char] -> Char -> Bool
AP.Text.notInClass