git.iko.soy/typeable/wai
on master help sign in
setRawPathInfo should drop a leading slash

also homepage should set a pathInfo of an empty list

commit09fb756663188b725240e43da9abc342b6ed2fdd authorGreg Weber <greg@gregweber.info> dateSat 22 Jun 2013, 21:41 (13 years ago) parentc3eafc2
1 file changed+6−2
compare with master
unifiedsplit
wai-test/Network/Wai/Test.hs+6−2
wai-test/Network/Wai/Test.hs+6−2
@@ -102,8 +102,12 @@ setPath req path = req {
102102
103103setRawPathInfo :: Request -> S8.ByteString -> Request
104104setRawPathInfo r rawPinfo =
105− let pInfo = T.split (== '/') $ TE.decodeUtf8 rawPinfo
106− in r { rawPathInfo = rawPinfo, pathInfo = pInfo }
105+ let pInfo = dropFrontSlash $ T.split (== '/') $ TE.decodeUtf8 rawPinfo
106+ in r { rawPathInfo = rawPinfo, pathInfo = pInfo }
107+ where
108+ dropFrontSlash ("":"":[]) = [] -- homepage, a single slash
109+ dropFrontSlash ("":path) = path
110+ dropFrontSlash path = path
107111
108112srequest :: SRequest -> Session SResponse
109113srequest (SRequest req bod) = do