From 04d51bdb4c40bff4d0830df0bf299c9ac99c742c Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 2 Apr 2013 19:45:23 +0300
Subject: [PATCH] Fix bug for complete URLs

---
 yesod-test/Yesod/Test.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/yesod-test/Yesod/Test.hs b/yesod-test/Yesod/Test.hs
index c6bbfa6a..a363f30f 100644
--- 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)
         }