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 16933956db831d9018b6f18917f9f2b1c7cecaec (commit)
from 702c743fca8b39ddd0b8a010eacf6da2fde60ba7 (commit)
Summary of changes:
src/Text/Templating/Heist/Internal.hs | 4 ++--
1 files changed, 2 insertions(+), 2 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 16933956db831d9018b6f18917f9f2b1c7cecaec
Author: Mighty Byte <[email protected]>
Date: Thu Apr 14 07:17:43 2011 -0400
Small simplifications
diff --git a/src/Text/Templating/Heist/Internal.hs
b/src/Text/Templating/Heist/Internal.hs
index 9256e6c..70c1a1c 100644
--- a/src/Text/Templating/Heist/Internal.hs
+++ b/src/Text/Templating/Heist/Internal.hs
@@ -96,7 +96,7 @@ bindSplices ss ts = foldl' (flip id) ts acts
------------------------------------------------------------------------------
-- | Converts 'Text' to a splice returning a single 'TextNode'.
textSplice :: (Monad m) => Text -> Splice m
-textSplice = return . (:[]) . X.TextNode
+textSplice t = return [X.TextNode t]
------------------------------------------------------------------------------
@@ -502,7 +502,7 @@ bindString :: Monad m
-> Text
-> TemplateState m
-> TemplateState m
-bindString n v = bindSplice n $ return [X.TextNode v]
+bindString n = bindSplice n . textSplice
------------------------------------------------------------------------------
-----------------------------------------------------------------------
hooks/post-receive
--
heist
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
