on master help sign in
bufferSource no longer polymorphic
commit9c51b73f745e1e814337a0860fd79cff72bf233b authorMichael Snoyman <michael@snoyman.com> dateTue 17 Jan 2012, 17:09 (15 years ago) parent70bb530
1 file changed+1−1
warp/Network/Wai/Handler/Warp.hs+1−1
warp/Network/Wai/Handler/Warp.hs+1−1
@@ -253,7 +253,7 @@ serveConnection settings th onException port app conn remoteHost' = do
253253 where
254254 serveConnection' :: ResourceT IO ()
255255 serveConnection' = do
256− fromClient <- C.bufferSource $ connSource conn th
256+ fromClient <- C.bufferSource $ C.Source $ return $ connSource conn th
257257 serveConnection'' fromClient
258258
259259 serveConnection'' fromClient = do