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 78bb47996539269b7d2263fb75a6d596e236dbb1 (commit)
from 06af3d1ca4d9d21f05987e062dbb7f2007ec9549 (commit)
Summary of changes:
src/Snap/Loader/Hint.hs | 6 +++---
1 files changed, 3 insertions(+), 3 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 78bb47996539269b7d2263fb75a6d596e236dbb1
Author: Carl Howells <[email protected]>
Date: Thu Jul 1 10:23:44 2010 -0700
Minor doc improvements
diff --git a/src/Snap/Loader/Hint.hs b/src/Snap/Loader/Hint.hs
index 3268d90..86ee502 100644
--- a/src/Snap/Loader/Hint.hs
+++ b/src/Snap/Loader/Hint.hs
@@ -105,14 +105,14 @@ hintSnap opts mNames initBase cleanBase actBase = do
loadAction <- protectedActionEvaluator 3 $ runInterpreter interpreter
return $ do
- eSnap <- liftIO loadAction
- case eSnap of
+ interpreterResult <- liftIO loadAction
+ case interpreterResult of
Left err -> internalError $ format err
Right handler -> catch500 handler
------------------------------------------------------------------------------
--- | XXX
+-- | Convert an InterpreterError to a ByteString for presentation
format :: InterpreterError -> S.ByteString
format (UnknownError e) =
S.append "Unknown interpreter error:\r\n\r\n" $ S.pack e
-----------------------------------------------------------------------
hooks/post-receive
--
snap
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
