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 9fecf4492a92abeb5a6c4f7c21e563fd176e9cc8 (commit)
from d581b3ae4933c95e70264e7924843651dfd51c3e (commit)
Summary of changes:
src/Text/Templating/Heist/Internal.hs | 5 +++--
test/suite/Text/Templating/Heist/Tests.hs | 2 +-
2 files changed, 4 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 9fecf4492a92abeb5a6c4f7c21e563fd176e9cc8
Author: Mighty Byte <[email protected]>
Date: Mon Jun 28 08:37:02 2010 -0400
Fixed type signature of addTemplate.
diff --git a/src/Text/Templating/Heist/Internal.hs
b/src/Text/Templating/Heist/Internal.hs
index 3486ed6..34296c1 100644
--- a/src/Text/Templating/Heist/Internal.hs
+++ b/src/Text/Templating/Heist/Internal.hs
@@ -192,10 +192,11 @@ insertTemplate p t st =
-- | Adds a template to the template state.
addTemplate :: Monad m =>
ByteString
- -> InternalTemplate
+ -> Template
-> TemplateState m
-> TemplateState m
-addTemplate n t st = insertTemplate (splitTemplatePath n) t st
+addTemplate n t st = insertTemplate (splitTemplatePath n)
+ (InternalTemplate Nothing t) st
------------------------------------------------------------------------------
diff --git a/test/suite/Text/Templating/Heist/Tests.hs
b/test/suite/Text/Templating/Heist/Tests.hs
index dd58318..ab79611 100644
--- a/test/suite/Text/Templating/Heist/Tests.hs
+++ b/test/suite/Text/Templating/Heist/Tests.hs
@@ -61,7 +61,7 @@ addTest :: IO ()
addTest = do
H.assertBool "lookup test" $ Just [] == (fmap (_itNodes . fst) $
lookupTemplate "aoeu" ts)
H.assertBool "splice touched" $ Map.size (_spliceMap ts) == 0
- where ts = addTemplate "aoeu" (InternalTemplate Nothing [])
(mempty::TemplateState IO)
+ where ts = addTemplate "aoeu" [] (mempty::TemplateState IO)
isLeft :: Either a b -> Bool
isLeft (Left _) = True
-----------------------------------------------------------------------
hooks/post-receive
--
heist
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
