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, iteratee-fixes has been updated
via 969f27081f228a6bc0fd111a90cd9cbabd8b4440 (commit)
from 88236ae7b69b3850c2549be21cf0c65c1ed8d64b (commit)
Summary of changes:
src/Snap/Internal/Http/Server.hs | 2 +-
1 files changed, 1 insertions(+), 1 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 969f27081f228a6bc0fd111a90cd9cbabd8b4440
Author: Gregory Collins <[email protected]>
Date: Mon Sep 6 00:28:47 2010 -0400
Enumerate EOF after running client enumerator
diff --git a/src/Snap/Internal/Http/Server.hs b/src/Snap/Internal/Http/Server.hs
index 81f0219..40988ed 100644
--- a/src/Snap/Internal/Http/Server.hs
+++ b/src/Snap/Internal/Http/Server.hs
@@ -623,7 +623,7 @@ sendResponse rsp' writeEnd onSendFile = do
--------------------------------------------------------------------------
whenEnum :: ByteString -> (forall x . Enumerator IO x) -> Iteratee IO
(a,Int64)
whenEnum hs e = do
- let enum = enumBS hs >. e
+ let enum = enumBS hs >. e >. enumEof
let hl = fromIntegral $ S.length hs
(x,bs) <- joinIM $ enum (countBytes writeEnd)
-----------------------------------------------------------------------
hooks/post-receive
--
snap-server
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
