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  e007b4b327a4b34e8364d5802ab041fe363bd7e0 (commit)
      from  460e7cc7ee82ee3eaef23ddb7b7d2a8806af0ea9 (commit)


Summary of changes:
 TODO                    |    4 ++++
 src/Snap/Loader/Hint.hs |   10 +++++++++-
 2 files changed, 13 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 e007b4b327a4b34e8364d5802ab041fe363bd7e0
Author: Carl Howells <[email protected]>
Date:   Wed Jun 30 09:56:42 2010 -0700

    TODO

diff --git a/TODO b/TODO
index 5010138..25e13be 100644
--- a/TODO
+++ b/TODO
@@ -1,6 +1,10 @@
 TODO
 ----
 
+Make the protectedActionEvaluator exception-safe.
+  -- The best approach is to just throw whatever exception
+     it catches to all the waiting threads.
+
 document EVERYTHING.
   -- low-level per-function documentation
   -- mid-level per-module documentation
diff --git a/src/Snap/Loader/Hint.hs b/src/Snap/Loader/Hint.hs
index 89b5d78..cc607d5 100644
--- a/src/Snap/Loader/Hint.hs
+++ b/src/Snap/Loader/Hint.hs
@@ -125,7 +125,15 @@ format (WontCompile errs) =
 
 
 ------------------------------------------------------------------------------
--- | XXX
+-- | Create a wrapper for an action that protects the action from
+-- concurrent or rapid evaluation.
+--
+-- There will be at least the passed-in 'NominalDiffTime' delay
+-- between the finish of one execution of the action the start of the
+-- next.  Concurrent calls to the wrapper, and calls within the delay
+-- period, end up with the same calculated value for a.
+--
+-- TODO: make this exception-safe
 protectedActionEvaluator :: NominalDiffTime -> IO a -> IO (IO a)
 protectedActionEvaluator minReEval action = do
     readerContainer <- newMVar []
-----------------------------------------------------------------------


hooks/post-receive
-- 
snap
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap

Reply via email to