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, hint-fix has been updated
via c7ee77706530c2dbc85362c4061abe67350c6bd2 (commit)
from d0c359ff14fd6227189b1a0b1ecc1eed751ead3d (commit)
Summary of changes:
src/Snap/Loader/Hint.hs | 9 +++++----
1 files changed, 5 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 c7ee77706530c2dbc85362c4061abe67350c6bd2
Author: Carl Howells <[email protected]>
Date: Mon Dec 13 14:45:45 2010 -0800
Make the interpreter run on each request
diff --git a/src/Snap/Loader/Hint.hs b/src/Snap/Loader/Hint.hs
index b9b7824..4102d13 100644
--- a/src/Snap/Loader/Hint.hs
+++ b/src/Snap/Loader/Hint.hs
@@ -144,10 +144,11 @@ hintSnap opts modules initialization handler = do
-- access.
loadAction <- protectedActionEvaluator 3 loadInterpreter
- interpreterResult <- liftIO loadAction
- case interpreterResult of
- Left err -> error $ format err
- Right handlerAction -> return handlerAction
+ return $ do
+ interpreterResult <- liftIO loadAction
+ case interpreterResult of
+ Left err -> error $ format err
+ Right handlerAction -> handlerAction
------------------------------------------------------------------------------
-----------------------------------------------------------------------
hooks/post-receive
--
snap
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
