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 b60c7237f2545d5c0825a8c78cfc14a2bea17341 (commit)
from 56e2e781b325de25dffd74fe44fd3cdebcabd92b (commit)
Summary of changes:
src/Snap/Loader/Hint.hs | 8 +++++++-
1 files changed, 7 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 b60c7237f2545d5c0825a8c78cfc14a2bea17341
Author: Carl Howells <[email protected]>
Date: Thu Jul 1 15:29:55 2010 -0700
more Snap.Loader.Hint documentation
diff --git a/src/Snap/Loader/Hint.hs b/src/Snap/Loader/Hint.hs
index 3109451..c1f782a 100644
--- a/src/Snap/Loader/Hint.hs
+++ b/src/Snap/Loader/Hint.hs
@@ -32,7 +32,13 @@ import Snap.Types
import qualified Snap.Loader.Static as Static
------------------------------------------------------------------------------
--- | XXX
+-- | This function derives all the information necessary to use the
+-- interpreter from the compile-time environment, and compiles it in
+-- to the generated code.
+--
+-- This could be considered a TH wrapper around a function
+-- > loadSnap :: IO a -> (a -> IO ()) -> (a -> Snap ()) -> IO (IO (), Snap ())
+-- with a magical implementation.
loadSnapTH :: Name -> Name -> Name -> Q Exp
loadSnapTH initialize cleanup action = do
args <- runIO getArgs
-----------------------------------------------------------------------
hooks/post-receive
--
snap
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
