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, master has been updated
via 0c857a7f3cf7c2fed3e17024b2595a355082b57f (commit)
from 96f0488e64c1bd585031fd07394028dda3047321 (commit)
Summary of changes:
src/Snap/Iteratee.hs | 5 +----
1 files changed, 1 insertions(+), 4 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 0c857a7f3cf7c2fed3e17024b2595a355082b57f
Author: Gregory Collins <[email protected]>
Date: Wed Aug 18 16:04:14 2010 -0400
Snap.Iteratee: finally handler for enumFile in portable mode
diff --git a/src/Snap/Iteratee.hs b/src/Snap/Iteratee.hs
index dc04a6a..8c4ba2f 100644
--- a/src/Snap/Iteratee.hs
+++ b/src/Snap/Iteratee.hs
@@ -434,10 +434,7 @@ enumFile :: FilePath -> Iteratee IO a -> IO (Iteratee IO a)
enumFile fp iter = do
h <- liftIO $ openBinaryFile fp ReadMode
i' <- enumHandle h iter
- return $ do
- x <- i'
- liftIO (hClose h)
- return x
+ return (i' `finally` liftIO (hClose h))
#else
-----------------------------------------------------------------------
hooks/post-receive
--
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
