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 7f486cae69b8c34bcf4089ef2add5bef711926b0 (commit)
from 9e0daeaf7989fc3dd72f5d83b224ad0b360789ca (commit)
Summary of changes:
src/Snap/Extension/Loader/Devel/Evaluator.hs | 15 +++++++--------
1 files changed, 7 insertions(+), 8 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 7f486cae69b8c34bcf4089ef2add5bef711926b0
Author: Carl Howells <[email protected]>
Date: Thu Dec 23 12:52:41 2010 -0800
Minor re-arrangment of the evaluator code, no functional changes
diff --git a/src/Snap/Extension/Loader/Devel/Evaluator.hs
b/src/Snap/Extension/Loader/Devel/Evaluator.hs
index 267ae8c..0122f9f 100644
--- a/src/Snap/Extension/Loader/Devel/Evaluator.hs
+++ b/src/Snap/Extension/Loader/Devel/Evaluator.hs
@@ -63,14 +63,6 @@ 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.
-
- let newReaderContainer :: IO (MVar [(ThreadId, MVar (Snap ()))])
- newReaderContainer = newMVar []
-
- newResultContainer :: IO (MVar (Maybe (Either SomeException
- (IO (), Snap ()), a)))
- newResultContainer = newMVar Nothing
-
readerContainer <- newReaderContainer
-- Contains the previous result and initialization value, and the
@@ -149,5 +141,12 @@ protectedHintEvaluator start test getInternals = do
Nothing -> waitForNewResult
getResult
where
+ newReaderContainer :: IO (MVar [(ThreadId, MVar (Snap ()))])
+ newReaderContainer = newMVar []
+
+ newResultContainer :: IO (MVar (Maybe (Either SomeException
+ (IO (), Snap ()), a)))
+ newResultContainer = newMVar Nothing
+
cleanup (Just (Right (clean, _), _)) = clean
cleanup _ = return ()
-----------------------------------------------------------------------
hooks/post-receive
--
snap
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
