@@ -8,6 +8,7 @@ module Network.Wai.Handler.Warp.Request (
88 ) where
99
1010import Control.Applicative
11+import qualified Control.Concurrent as Conc (yield)
1112import Control.Exception.Lifted (throwIO)
1213import Control.Monad.IO.Class (liftIO)
1314import Data.Array ((!))
@@ -86,7 +87,9 @@ handleExpect :: Connection
8687 -> H.HttpVersion
8788 -> Maybe HeaderValue
8889 -> IO ()
89−handleExpect conn ver (Just "100-continue") = connSendAll conn continue
90+handleExpect conn ver (Just "100-continue") = do
91+ connSendAll conn continue
92+ Conc.yield
9093 where
9194 continue
9295 | ver == H.http11 = "HTTP/1.1 100 Continue\r\n\r\n"