Fix bug for complete URLs

2013-04-02 19:45:23 +03:00 · 2013-04-02 19:45:23 +03:00 · 04d51bdb4c
commit 04d51bdb4c
parent 51eb7d4ba2
1 changed files with 2 additions and 3 deletions
--- a/yesod-test/Yesod/Test.hs
+++ b/yesod-test/Yesod/Test.hs
@ -460,13 +460,12 @@ setUrl url' = do
        site
        (toTextUrl url')
    url <- either (error . show) return eurl
-    -- FIXME deal with complete URLs
    let (urlPath, urlQuery) = T.break (== '?') url
    ST.modify $ \rbd -> rbd
        { rbdPath =
            case DL.filter (/="") $ T.split (== '/') urlPath of
-                ("http":_:rest) -> rest
-                ("https":_:rest) -> rest
+                ("http:":_:rest) -> rest
+                ("https:":_:rest) -> rest
                x -> x
        , rbdGets = rbdGets rbd ++ H.parseQuery (TE.encodeUtf8 urlQuery)
        }