haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix bug for complete URLs

Browse Source
This commit is contained in:
Michael Snoyman 2013-04-02 19:45:23 +03:00
parent 51eb7d4ba2
commit 04d51bdb4c
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
yesod-test/Yesod/Test.hs
View File

@ -460,13 +460,12 @@ setUrl url' = do
site site
(toTextUrl url') (toTextUrl url')
url <- either (error . show) return eurl url <- either (error . show) return eurl
-- FIXME deal with complete URLs
let (urlPath, urlQuery) = T.break (== '?') url let (urlPath, urlQuery) = T.break (== '?') url
ST.modify $ \rbd -> rbd ST.modify $ \rbd -> rbd
{ rbdPath = { rbdPath =
case DL.filter (/="") $ T.split (== '/') urlPath of case DL.filter (/="") $ T.split (== '/') urlPath of
("http":_:rest) -> rest ("http:":_:rest) -> rest
("https":_:rest) -> rest ("https:":_:rest) -> rest
x -> x x -> x
, rbdGets = rbdGets rbd ++ H.parseQuery (TE.encodeUtf8 urlQuery) , rbdGets = rbdGets rbd ++ H.parseQuery (TE.encodeUtf8 urlQuery)
} }