Permalink
Browse files

Bless the Accept request header

  • Loading branch information...
1 parent d5b4371 commit 5eccfabda0d8ae7f7d7e082cdd258042581ee25d @kfish committed Jan 4, 2013
Showing with 4 additions and 2 deletions.
  1. +4 −2 Network/Web/Params.hs
@@ -143,7 +143,8 @@ badStatus status = n `elem` "45"
{-|
Field key of HTTP header.
-}
-data FieldKey = FkAcceptLanguage
+data FieldKey = FkAccept
+ | FkAcceptLanguage
| FkCacheControl
| FkConnection
| FkContentLength
@@ -167,7 +168,8 @@ data FieldKey = FkAcceptLanguage
fieldKeyStringList :: [(FieldKey, S.ByteString)]
fieldKeyStringList =
- [ (FkAcceptLanguage , "Accept-Language")
+ [ (FkAccept , "Accept")
+ , (FkAcceptLanguage , "Accept-Language")
, (FkCacheControl , "Cache-Control")
, (FkConnection , "Connection")
, (FkContentLength , "Content-Length")

0 comments on commit 5eccfab

Please sign in to comment.