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 d0003bfaf1ec7199da9029cd60516e59927625b7 (commit)
from ead5e964a9fddda6a33e6154ba4390c0cce36026 (commit)
Summary of changes:
src/Snap/Extension/Heist.hs | 7 ++++---
1 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 d0003bfaf1ec7199da9029cd60516e59927625b7
Author: Ozgun Ataman <[email protected]>
Date: Thu Dec 23 14:43:38 2010 +0200
Flip renderWithSplices arguments for a better API
diff --git a/src/Snap/Extension/Heist.hs b/src/Snap/Extension/Heist.hs
index f8ab482..0fa7b7e 100644
--- a/src/Snap/Extension/Heist.hs
+++ b/src/Snap/Extension/Heist.hs
@@ -63,8 +63,9 @@ class (Monad n, MonadSnap m) => MonadHeist n m | m -> n where
-- | Helper function for common use case:
-- Render a template with a given set of splices.
renderWithSplices
- :: (MonadHeist n m) => [(ByteString, Splice n)] -- ^ Splice mapping
- -> ByteString -- ^ Template to render
+ :: (MonadHeist n m)
+ => ByteString -- ^ Template to render
+ -> [(ByteString, Splice n)] -- ^ Splice mapping
-> m ()
-renderWithSplices sps t = heistLocal bsps $ render t
+renderWithSplices t sps = heistLocal bsps $ render t
where bsps = bindSplices sps
-----------------------------------------------------------------------
hooks/post-receive
--
snap
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
