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 "heist".
The branch, master has been updated
via 215ad02abc7a19b193818585e155100a5e40177c (commit)
from 8e7348b19186f2633930186d0549a4c076caf9fb (commit)
Summary of changes:
src/Text/Templating/Heist.hs | 6 ++++++
src/Text/Templating/Heist/Types.hs | 10 +++++-----
2 files changed, 11 insertions(+), 5 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 215ad02abc7a19b193818585e155100a5e40177c
Author: Gregory Collins <[email protected]>
Date: Fri Jun 18 01:25:04 2010 -0400
Export state monad functions.
diff --git a/src/Text/Templating/Heist.hs b/src/Text/Templating/Heist.hs
index d6a6ac9..24fcb90 100644
--- a/src/Text/Templating/Heist.hs
+++ b/src/Text/Templating/Heist.hs
@@ -90,6 +90,12 @@ module Text.Templating.Heist
, runNodeList
, getContext
+ , localParamNode
+ , getsTS
+ , getTS
+ , putTS
+ , modifyTS
+
-- * Functions for running splices and templates
, evalTemplate
, callTemplate
diff --git a/src/Text/Templating/Heist/Types.hs
b/src/Text/Templating/Heist/Types.hs
index 28f3f2f..df38ffd 100644
--- a/src/Text/Templating/Heist/Types.hs
+++ b/src/Text/Templating/Heist/Types.hs
@@ -320,7 +320,7 @@ getParamNode = TemplateMonad $ \r s -> return (r,s)
------------------------------------------------------------------------------
--- | TemplateMonad's local
+-- | TemplateMonad's 'local'.
localParamNode :: Monad m
=> (Node -> Node)
-> TemplateMonad m a
@@ -329,25 +329,25 @@ localParamNode f m = TemplateMonad $ \r s ->
runTemplateMonad m (f r) s
------------------------------------------------------------------------------
--- | TemplateMonad's gets
+-- | TemplateMonad's 'gets'.
getsTS :: Monad m => (TemplateState m -> r) -> TemplateMonad m r
getsTS f = TemplateMonad $ \_ s -> return (f s, s)
------------------------------------------------------------------------------
--- | TemplateMonad's get
+-- | TemplateMonad's 'get'.
getTS :: Monad m => TemplateMonad m (TemplateState m)
getTS = TemplateMonad $ \_ s -> return (s, s)
------------------------------------------------------------------------------
--- | TemplateMonad's put
+-- | TemplateMonad's 'put'.
putTS :: Monad m => TemplateState m -> TemplateMonad m ()
putTS s = TemplateMonad $ \_ _ -> return ((), s)
------------------------------------------------------------------------------
--- | TemplateMonad's modify
+-- | TemplateMonad's 'modify'.
modifyTS :: Monad m
=> (TemplateState m -> TemplateState m)
-> TemplateMonad m ()
-----------------------------------------------------------------------
hooks/post-receive
--
heist
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
