fixing a bug of refactoring.
commit32454121cef9c11ad3b4577c8d57fa8eb4e457d0
authorKazu Yamamoto <kazu@iij.ad.jp>
dateTue 14 Aug 2012, 17:48 (14 years ago)
parent6037c38
warp/Network/Wai/Handler/Warp/Request.hs+1−1
@@ -74,7 +74,7 @@ parseRequest' conn port (firstLine:otherLines) remoteHost' src = do
7474 Just bs -> readInt bs
7575 let serverName' = takeUntil 58 host -- ':'
7676 let chunked = maybe False ((== "chunked") . CI.foldCase)
77− $ lookup H.hContentEncoding heads
77+ $ lookup "transfer-encoding" heads
7878 (rbody, getSource) <- liftIO $
7979 if chunked
8080 then do