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 3a1a6ca8c35d788bc5bdf13816882823c595188f (commit)
from b082b4c3b2aa49edf26fc4a8acf1e13171e5f4d7 (commit)
Summary of changes:
src/Snap/Internal/Http/Server/LibevBackend.hsc | 8 ++------
1 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 3a1a6ca8c35d788bc5bdf13816882823c595188f
Author: Gregory Collins <[email protected]>
Date: Tue May 25 20:44:06 2010 -0400
Allow timeout exception to propagate instead of swallowing it
diff --git a/src/Snap/Internal/Http/Server/LibevBackend.hsc
b/src/Snap/Internal/Http/Server/LibevBackend.hsc
index 3792765..d4753e5 100644
--- a/src/Snap/Internal/Http/Server/LibevBackend.hsc
+++ b/src/Snap/Internal/Http/Server/LibevBackend.hsc
@@ -732,11 +732,7 @@ writeOut conn = IterateeG out
out (Chunk s) = do
let x = unWrap s
- ee <- liftIO $ ((try $ sendData conn x)
- :: IO (Either SomeException ()))
+ liftIO $ sendData conn x
- case ee of
- -- XXX How do we signal to Server that an exception has occurred?
- (Left e) -> return $ Done () (EOF $ Just $ Err $ show e)
- (Right _) -> return $ Cont (writeOut conn) Nothing
+ return $ Cont (writeOut conn) Nothing
-----------------------------------------------------------------------
hooks/post-receive
--
snap-server
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
