@@ -51,18 +51,16 @@ defaultIndexRequestHeader = array (0,requestMaxIndex) [(i,Nothing)|i<-[0..reques
5151indexResponseHeader :: ResponseHeaders -> IndexedHeader
5252indexResponseHeader hdr = traverseHeader hdr responseMaxIndex responseKeyIndex
5353
54−idxContentRange,idxServer :: Int
54+idxServer :: Int
5555--idxContentLength = 0
56−idxContentRange = 1
57−idxServer = 2
56+idxServer = 1
5857
5958-- | The size for 'IndexedHeader' for HTTP Response.
6059responseMaxIndex :: Int
61−responseMaxIndex = 2
60+responseMaxIndex = 1
6261
6362responseKeyIndex :: HeaderName -> Int
6463responseKeyIndex "content-length" = idxContentLength
65−responseKeyIndex "content-range" = idxContentRange
6664responseKeyIndex "server" = idxServer
6765responseKeyIndex _ = -1
6866