1 module Network.HTTP.Lucu.Parser.Http
2 ( isCtl -- Char -> Bool
3 , isSeparator -- Char -> Bool
8 import qualified Data.ByteString.Lazy.Char8 as B
9 import Data.ByteString.Lazy.Char8 (ByteString)
11 import Network.HTTP.Lucu.Parser
20 isSeparator :: Char -> Bool
21 isSeparator c = elem c "()<>@,;:\\\"/[]?={} \t"
25 token = satisfy (\ c -> not (isCtl c || isSeparator c))