git.iko.soy/typeable/wai
on master help sign in
Removed cookie parsing code
51a6140Michael Snoyman
Network/Wai/Parse.hs−15
compare with master
unifiedsplit
@@ -4,7 +4,6 @@
4
4
5module Network.Wai.Parse
5module Network.Wai.Parse
6 ( parseQueryString
6 ( parseQueryString
7− , parseCookies
8 , parseHttpAccept
7 , parseHttpAccept
9 , parseRequestBody
8 , parseRequestBody
10 , Sink (..)
9 , Sink (..)
@@ -92,20 +91,6 @@ qsDecode z = fst $ S.unfoldrN (S.length z) go z
92 combine :: Word8 -> Word8 -> Word8
91 combine :: Word8 -> Word8 -> Word8
93 combine a b = shiftL a 4 .|. b
92 combine a b = shiftL a 4 .|. b
94
93
95−-- | Decode the value of an HTTP_COOKIE header into key/value pairs.
96−parseCookies :: S.ByteString -> [(S.ByteString, S.ByteString)]
97−parseCookies s
98− | S.null s = []
99− | otherwise =
100− let (first, rest) = breakDiscard 59 s -- semicolon
101− in parseCookie first : parseCookies rest
102−
103−parseCookie :: S.ByteString -> (S.ByteString, S.ByteString)
104−parseCookie s =
105− let (key, value) = breakDiscard 61 s -- equals sign
106− key' = S.dropWhile (== 32) key -- space
107− in (key', value)
108−
109-- | Parse the HTTP accept string to determine supported content types.
94-- | Parse the HTTP accept string to determine supported content types.
110parseHttpAccept :: S.ByteString -> [S.ByteString]
95parseHttpAccept :: S.ByteString -> [S.ByteString]
111parseHttpAccept = map fst
96parseHttpAccept = map fst