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-core".
The branch, 0.3 has been updated
via 1197d61574b083de4aff099c0ccecb82f949b437 (commit)
from 48a7537217220bf0399fc78b3dab94abae732bac (commit)
Summary of changes:
src/Snap/Internal/Types.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 1197d61574b083de4aff099c0ccecb82f949b437
Author: Carl Howells <[email protected]>
Date: Mon Jun 28 13:47:56 2010 -0700
correct bracketSnap implementation wrt async exceptions
diff --git a/src/Snap/Internal/Types.hs b/src/Snap/Internal/Types.hs
index aec7678..67a6461 100644
--- a/src/Snap/Internal/Types.hs
+++ b/src/Snap/Internal/Types.hs
@@ -522,7 +522,7 @@ ipHeaderFilter' header = do
--
-- 3. An exception being thrown.
bracketSnap :: IO a -> (a -> IO b) -> (a -> Snap c) -> Snap c
-bracketSnap before after thing = Snap $ do
+bracketSnap before after thing = block . Snap $ do
a <- liftIO before
let after' = liftIO $ after a
(Snap thing') = thing a
-----------------------------------------------------------------------
hooks/post-receive
--
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
