diff --git a/yesod-test/Yesod/Test.hs b/yesod-test/Yesod/Test.hs index 117fbcf3..be57a2d3 100644 --- a/yesod-test/Yesod/Test.hs +++ b/yesod-test/Yesod/Test.hs @@ -437,9 +437,13 @@ doRequestHeaders method url extrahead paramsBuild = do { requestMethod = method , remoteHost = Sock.SockAddrInet 1 2 , requestHeaders = headers - , rawPathInfo = url - , pathInfo = DL.filter (/="") $ T.split (== '/') $ TE.decodeUtf8 url + , rawPathInfo = urlPath + , pathInfo = DL.filter (/="") $ T.split (== '/') $ TE.decodeUtf8 urlPath + , rawQueryString = urlQuery + , queryString = H.parseQuery urlQuery } + + (urlPath, urlQuery) = BS8.break (== '?') url -- | Run a persistent db query. For asserting on the results of performed actions -- or setting up pre-conditions. At the moment this part is still very raw. diff --git a/yesod-test/yesod-test.cabal b/yesod-test/yesod-test.cabal index d28dc663..8ffc049a 100644 --- a/yesod-test/yesod-test.cabal +++ b/yesod-test/yesod-test.cabal @@ -1,5 +1,5 @@ name: yesod-test -version: 0.3.3.2 +version: 0.3.4 license: MIT license-file: LICENSE author: Nubis