module Network.HTTP.Lucu.ContentCoding
( AcceptEncoding(..)
- , acceptEncodingListP
+ , acceptEncodingList
, normalizeCoding
, unnormalizeCoding
)
q1' = fromMaybe 0 q1
q2' = fromMaybe 0 q2
-acceptEncodingListP ∷ Parser [AcceptEncoding]
-acceptEncodingListP = listOf accEncP
+acceptEncodingList ∷ Parser [AcceptEncoding]
+acceptEncodingList = listOf accEnc
-accEncP ∷ Parser AcceptEncoding
-accEncP = do coding ← toCIAscii <$> token
- qVal ← option Nothing
- $ do _ ← string ";q="
- q ← qvalue
- return $ Just q
- return $ AcceptEncoding (normalizeCoding coding) qVal
+accEnc ∷ Parser AcceptEncoding
+accEnc = do coding ← toCIAscii <$> token
+ qVal ← option Nothing
+ $ do _ ← string ";q="
+ q ← qvalue
+ return $ Just q
+ return $ AcceptEncoding (normalizeCoding coding) qVal
normalizeCoding ∷ CIAscii → CIAscii
normalizeCoding coding