@@ -27,6 +27,8 @@ idxRange = 4
2727idxHost = 5
2828
2929-- | The size for 'IndexedHeader' for HTTP Request.
30+-- From 0 to this corresponds to \"Content-Length\", \"Transfer-Encoding\",
31+-- \"Expect\", \"Connection\", \"Range\", and \"Host\".
3032requestMaxIndex :: Int
3133requestMaxIndex = 5
3234
@@ -39,10 +41,6 @@ requestKeyIndex "range" = idxRange
3941requestKeyIndex "host" = idxHost
4042requestKeyIndex _ = -1
4143
42−-- | Default 'IndexedHeader' for HTTP Request.
43−-- All valuers are 'Nothing' by default.
44−-- They correspond to \"Content-Length\", \"Transfer-Encoding\",
45−-- \"Expect\", \"Connection\", \"Range\", and \"Host\".
4644defaultIndexRequestHeader :: IndexedHeader
4745defaultIndexRequestHeader = array (0,requestMaxIndex) [(i,Nothing)|i<-[0..requestMaxIndex]]
4846