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".
The branch, master has been updated
via 9ee6142366e479a70c3909ac646287a5175eb964 (commit)
from 5066119c2dbdfdb77a19032a3238c6d547552c26 (commit)
Summary of changes:
src/Snap/Extension/Loader/Devel/Evaluator.hs | 4 ++--
1 files changed, 2 insertions(+), 2 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 9ee6142366e479a70c3909ac646287a5175eb964
Author: Carl Howells <[email protected]>
Date: Wed Dec 22 08:21:43 2010 -0800
variable rename in the hint evaluator
diff --git a/src/Snap/Extension/Loader/Devel/Evaluator.hs
b/src/Snap/Extension/Loader/Devel/Evaluator.hs
index 56c8b24..0287434 100644
--- a/src/Snap/Extension/Loader/Devel/Evaluator.hs
+++ b/src/Snap/Extension/Loader/Devel/Evaluator.hs
@@ -68,7 +68,7 @@ protectedHintEvaluator :: IO a
-> (a -> IO Bool)
-> IO HintInternals
-> IO (Snap ())
-protectedHintEvaluator action test getInternals = do
+protectedHintEvaluator start test getInternals = do
-- The list of requesters waiting for a result. Contains the
-- ThreadId in case of exceptions, and an empty MVar awaiting a
-- successful result.
@@ -125,7 +125,7 @@ protectedHintEvaluator action test getInternals = do
throwIO e
clearAndNotify r f = do
- a <- unblock action
+ a <- unblock start
_ <- swapMVar resultContainer $ Just (r, a)
allReaders <- swapMVar readerContainer []
mapM_ f allReaders
-----------------------------------------------------------------------
hooks/post-receive
--
snap
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
