1 module Network.HTTP.Lucu.ETag
3 , mkETag -- Bool -> String -> ETag
5 , eTagListP -- Parser [ETag]
9 import Network.HTTP.Lucu.Parser
10 import Network.HTTP.Lucu.Parser.Http
19 instance Show ETag where
20 show (ETag isWeak token) = (if isWeak then
25 foldr (++) "" (["\""] ++ map quote token ++ ["\""])
27 quote :: Char -> String
32 mkETag :: Bool -> String -> ETag
37 eTagP = do isWeak <- option False (string "W/" >> return True)
39 return $ mkETag isWeak str
42 eTagListP :: Parser [ETag]
44 $ sepBy1 eTagP (do many sp