module PercentEncoding where

import qualified PercentEncoding.Parsers as Parsers
import qualified PercentEncoding.TextBuilders as TextBuilders
import Platform.Prelude
import qualified Text.Megaparsec as Megaparsec

encodeText :: Text -> TextBuilder
encodeText :: Text -> TextBuilder
encodeText = Text -> TextBuilder
TextBuilders.urlEncodedText

parser ::
  -- | Test on stop-char. @%@ is already accounted for.
  (Char -> Bool) ->
  -- | Megaparsec parser for a percent-encoded text component.
  Megaparsec.Parsec Void Text Text
parser :: (Char -> Bool) -> Parsec Void Text Text
parser Char -> Bool
isStopChar =
  (Char -> Bool) -> Parsec Void Text Text
Parsers.urlEncodedComponentText Char -> Bool
isStopChar