import Prelude.Unicode
data AcceptEncoding
- = AcceptEncoding !CIAscii !(Maybe Double)
+ = AcceptEncoding {
+ aeEncoding ∷ !CIAscii
+ , aeQValue ∷ !(Maybe Double)
+ }
deriving (Eq, Show)
instance Ord AcceptEncoding where
q1' = fromMaybe 0 q1
q2' = fromMaybe 0 q2
-acceptEncodingListP ∷ Parser [(CIAscii, Maybe Double)]
+acceptEncodingListP ∷ Parser [AcceptEncoding]
acceptEncodingListP = listOf accEncP
-accEncP ∷ Parser (CIAscii, Maybe Double)
+accEncP ∷ Parser AcceptEncoding
accEncP = do coding ← toCIAscii <$> token
qVal ← option Nothing
$ do _ ← string ";q="
q ← qvalue
return $ Just q
- return (normalizeCoding coding, qVal)
+ return $ AcceptEncoding (normalizeCoding coding) qVal
normalizeCoding ∷ CIAscii → CIAscii
normalizeCoding coding