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, master has been updated
via 547cf820b46a3beb778cba3f8450091ac7e7033b (commit)
from e823126e592e194940892406337d9226673a36e2 (commit)
Summary of changes:
src/Snap/Internal/Routing.hs | 5 +++--
1 files changed, 3 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 547cf820b46a3beb778cba3f8450091ac7e7033b
Author: Mighty Byte <[email protected]>
Date: Sat Dec 11 10:23:08 2010 -0500
Fixed issue 33.
diff --git a/src/Snap/Internal/Routing.hs b/src/Snap/Internal/Routing.hs
index b6427b4..a97a1fe 100644
--- a/src/Snap/Internal/Routing.hs
+++ b/src/Snap/Internal/Routing.hs
@@ -149,7 +149,7 @@ routeEarliestNC r n = case r of
--
route :: MonadSnap m => [(ByteString, m a)] -> m a
route rts = do
- p <- getRequest >>= return . rqPathInfo
+ p <- getRequest >>= maybe pass return . urlDecode . rqPathInfo
route' (return ()) ([], splitPath p) Map.empty rts'
where
rts' = mconcat (map pRoute rts)
@@ -165,9 +165,10 @@ routeLocal rts = do
req <- getRequest
let ctx = rqContextPath req
let p = rqPathInfo req
+ p' <- maybe pass return $ urlDecode p
let md = modifyRequest $ \r -> r {rqContextPath=ctx, rqPathInfo=p}
- (route' md ([], splitPath p) Map.empty rts') <|> (md >> pass)
+ (route' md ([], splitPath p') Map.empty rts') <|> (md >> pass)
where
rts' = mconcat (map pRoute rts)
-----------------------------------------------------------------------
hooks/post-receive
--
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
