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 65ed2c88b5bc7f4296ab123c369f4ec8d5cebf4f (commit)
from a43874fce4ab984998a774e0467ab8234d9d646a (commit)
Summary of changes:
src/Snap/Internal/Http/Server.hs | 2 +-
test/common/Test/Common/TestHandler.hs | 6 +-----
2 files changed, 2 insertions(+), 6 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 65ed2c88b5bc7f4296ab123c369f4ec8d5cebf4f
Author: Gregory Collins <[email protected]>
Date: Fri Sep 10 15:42:15 2010 -0400
Remove unsafeDetachRequestBody in favour of new transformRequestBody
function
diff --git a/src/Snap/Internal/Http/Server.hs b/src/Snap/Internal/Http/Server.hs
index 66eda6a..91a237e 100644
--- a/src/Snap/Internal/Http/Server.hs
+++ b/src/Snap/Internal/Http/Server.hs
@@ -626,7 +626,7 @@ sendResponse rsp' writeEnd onSendFile = do
-> (forall x . Enumerator IO x)
-> Iteratee IO (a,Int64)
whenEnum hs rsp e = do
- let enum = if rspDetachedBody rsp
+ let enum = if rspTransformingRqBody rsp
then enumBS hs >. e
else enumBS hs >. e >. enumEof
diff --git a/test/common/Test/Common/TestHandler.hs
b/test/common/Test/Common/TestHandler.hs
index 8e7bade..81738dd 100644
--- a/test/common/Test/Common/TestHandler.hs
+++ b/test/common/Test/Common/TestHandler.hs
@@ -29,11 +29,7 @@ echoUriHandler = do
echoHandler :: Snap ()
-echoHandler = do
- unsafeDetachRequestBody >>= \e -> do
- let (SomeEnumerator x) = e
- let e' i = x (iterateeDebugWrapper "echoHandler" i)
- modifyResponse $ setResponseBody e'
+echoHandler = transformRequestBody return
responseHandler :: Snap ()
-----------------------------------------------------------------------
hooks/post-receive
--
snap-server
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
