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 6d224e00a61338a21438e8e4c06b91190611a0f3 (commit)
from d3b9b120e9b33b6806d58c430eaf66d2f0768df5 (commit)
Summary of changes:
src/Snap/Internal/Types.hs | 4 +---
1 files changed, 1 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 6d224e00a61338a21438e8e4c06b91190611a0f3
Author: Carl Howells <[email protected]>
Date: Wed Jun 30 14:30:22 2010 -0700
whitespace
diff --git a/src/Snap/Internal/Types.hs b/src/Snap/Internal/Types.hs
index ae5fd05..95d8ecc 100644
--- a/src/Snap/Internal/Types.hs
+++ b/src/Snap/Internal/Types.hs
@@ -453,7 +453,7 @@ modifyRequest f = liftSnap $
------------------------------------------------------------------------------
-- | Modifes the 'Response' object stored in a 'Snap' monad.
modifyResponse :: MonadSnap m => (Response -> Response) -> m ()
-modifyResponse f = liftSnap $
+modifyResponse f = liftSnap $
smodify $ \ss -> ss { _snapResponse = f $ _snapResponse ss }
{-# INLINE modifyResponse #-}
@@ -705,5 +705,3 @@ getParam :: MonadSnap m
getParam k = do
rq <- getRequest
return $ liftM (S.intercalate " ") $ rqParam k rq
-
-
-----------------------------------------------------------------------
hooks/post-receive
--
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
