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-core".
The branch, 0.3 has been updated
via f912888eaa3ad3d306bd08340eec69c2e1cd9881 (commit)
from 6244a6cb25d353d75cb8193ebb50c6fc066c462b (commit)
Summary of changes:
src/Snap/Internal/Types.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 f912888eaa3ad3d306bd08340eec69c2e1cd9881
Author: Mighty Byte <[email protected]>
Date: Mon Oct 4 02:08:04 2010 -0400
Generalized type of redirect.
diff --git a/src/Snap/Internal/Types.hs b/src/Snap/Internal/Types.hs
index 176882c..a76bd2b 100644
--- a/src/Snap/Internal/Types.hs
+++ b/src/Snap/Internal/Types.hs
@@ -418,7 +418,7 @@ modifyResponse f = liftSnap $
-- 'Snap' monad. Note that the target URL is not validated in any way. Consider
-- using 'redirect\'' instead, which allows you to choose the correct status
-- code.
-redirect :: ByteString -> Snap ()
+redirect :: MonadSnap m => ByteString -> m ()
redirect target = redirect' target 302
{-# INLINE redirect #-}
@@ -428,7 +428,7 @@ redirect target = redirect' target 302
-- URL/path and the status code (should be one of 301, 302, 303 or 307) in the
-- 'Response' object stored in a 'Snap' monad. Note that the target URL is not
-- validated in any way.
-redirect' :: ByteString -> Int -> Snap ()
+redirect' :: MonadSnap m => ByteString -> Int -> m ()
redirect' target status = do
r <- getResponse
-----------------------------------------------------------------------
hooks/post-receive
--
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
