http-pony-serve-wai-0.1.0.3: src/Network/HTTP/Pony/Serve/Wai/Parser.hs

-- | 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 (== '?')