This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "snap-server".
The branch, master has been updated
via 30ed7eb20930923386be4d29d0b8560b3c13af54 (commit)
from c25074e2a035110763d1f31e44632c7e978f476b (commit)
Summary of changes:
src/Snap/Internal/Http/Parser.hs | 4 ++--
src/Snap/Internal/Http/Server.hs | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 30ed7eb20930923386be4d29d0b8560b3c13af54
Author: Gregory Collins <[email protected]>
Date: Mon May 24 23:55:30 2010 -0400
Switch to unsafeBufferIteratee
diff --git a/src/Snap/Internal/Http/Parser.hs b/src/Snap/Internal/Http/Parser.hs
index c4153cd..4c2575a 100644
--- a/src/Snap/Internal/Http/Parser.hs
+++ b/src/Snap/Internal/Http/Parser.hs
@@ -108,10 +108,10 @@ toHex !i' = S.reverse s
-- >
-- > Chunk "3\r\nfoo\r\n3\r\nbar\r\n4\r\nquux\r\n0\r\n\r\n" Empty
--
-writeChunkedTransferEncoding :: (Monad m) => Enumerator m a -> Enumerator m a
+writeChunkedTransferEncoding :: Enumerator IO a -> Enumerator IO a
writeChunkedTransferEncoding enum it = do
i' <- wrap it
- i <- bufferIteratee i'
+ i <- unsafeBufferIteratee i'
enum i
where
diff --git a/src/Snap/Internal/Http/Server.hs b/src/Snap/Internal/Http/Server.hs
index fa8e584..bcd4cdf 100644
--- a/src/Snap/Internal/Http/Server.hs
+++ b/src/Snap/Internal/Http/Server.hs
@@ -158,7 +158,7 @@ httpServe bindAddress bindPort localHostname alogPath
elogPath handler =
{-# SCC "httpServe/runOne" #-} do
debug "Server.httpServe.runOne: entered"
let readEnd = Backend.getReadEnd conn
- writeEnd <- I.bufferIteratee $ Backend.getWriteEnd conn
+ writeEnd <- I.unsafeBufferIteratee $ Backend.getWriteEnd conn
let raddr = Backend.getRemoteAddr conn
let rport = Backend.getRemotePort conn
-----------------------------------------------------------------------
hooks/post-receive
--
snap-server
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
