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 cd590409ccd4318333bab77e920cb49a8388476d (commit)
from 81af465e7b13c51af771748d5e7d92d21c0d5e49 (commit)
Summary of changes:
project_template/hint/src/Site.hs | 3 ++-
1 files changed, 2 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 cd590409ccd4318333bab77e920cb49a8388476d
Author: Carl Howells <[email protected]>
Date: Thu Jul 1 18:05:32 2010 -0700
Add some url decoding in Site.hs
diff --git a/project_template/hint/src/Site.hs
b/project_template/hint/src/Site.hs
index 5d122a5..c7070cb 100644
--- a/project_template/hint/src/Site.hs
+++ b/project_template/hint/src/Site.hs
@@ -44,7 +44,8 @@ echo :: StateSnap ()
echo = do
message <- fromMaybe "" <$> getParam "stuff"
ts <- asks templateState
- let ts' = bindStrings [ ("message", message) ] ts
+ let message' = fromMaybe message $ urlDecode message
+ ts' = bindStrings [ ("message", message') ] ts
renderHtml ts' "echo"
-----------------------------------------------------------------------
hooks/post-receive
--
snap
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
