@@ -49,17 +49,19 @@ defaultIndexRequestHeader = array (0,requestMaxIndex) [(i,Nothing)|i<-[0..reques
4949indexResponseHeader :: ResponseHeaders -> IndexedHeader
5050indexResponseHeader hdr = traverseHeader hdr responseMaxIndex responseKeyIndex
5151
52−idxServer :: Int
52+idxServer, idxDate :: Int
5353--idxContentLength = 0
5454idxServer = 1
55+idxDate = 2
5556
5657-- | The size for 'IndexedHeader' for HTTP Response.
5758responseMaxIndex :: Int
58−responseMaxIndex = 1
59+responseMaxIndex = 2
5960
6061responseKeyIndex :: HeaderName -> Int
6162responseKeyIndex "content-length" = idxContentLength
6263responseKeyIndex "server" = idxServer
64+responseKeyIndex "date" = idxDate
6365responseKeyIndex _ = -1
6466
6567----------------------------------------------------------------