@@ -91,8 +91,13 @@ requestBody state len = W.Source $ do
91setHeader :: MonadFastCGI m => (W.ResponseHeader, B.ByteString) -> m ()
91setHeader :: MonadFastCGI m => (W.ResponseHeader, B.ByteString) -> m ()
92setHeader (k, v) =
92setHeader (k, v) =
93 setResponseHeader
93 setResponseHeader
94− (HttpExtensionHeader $ B.unpack $ W.responseHeaderToBS k)
94+ k'
95 (B.unpack v)
95 (B.unpack v)
98+ | k == W.ContentType = HttpContentType -- avoid double-sent c-type
99+ | otherwise = HttpExtensionHeader $ B.unpack $ W.responseHeaderToBS k
97myPut :: FastCGIState -> () -> B.ByteString -> IO (Either () ())
102myPut :: FastCGIState -> () -> B.ByteString -> IO (Either () ())
98myPut state _ bs = do
103myPut state _ bs = do