-- | Parser {-# LANGUAGE OverloadedStrings #-} module Network.HTTP.Pony.Serve.Wai.Parser where import qualified Data.Attoparsec.ByteString.Char8 as Char import Data.ByteString.Char8 (ByteString) import qualified Data.ByteString.Char8 as B -- requestURITokens :: Parser (ByteString, ByteString) -- requestURITokens = do -- ( (,) <$> Char.takeTill (== '?') -- <*> (Char.char '?' >> takeByteString) -- ) -- <|> -- ( (,) <$> takeByteString -- <*> pure mempty -- ) parseRequestURITokens :: ByteString -> (ByteString, ByteString) parseRequestURITokens = B.break (== '?')