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

Parse query string parameters from URLs

Browse Source
This commit is contained in:
Michael Snoyman 2013-02-28 07:28:34 +02:00
parent dcecc1dc12
commit aafecf5787
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -437,9 +437,13 @@ doRequestHeaders method url extrahead paramsBuild = do
{ requestMethod = method { requestMethod = method
, remoteHost = Sock.SockAddrInet 1 2 , remoteHost = Sock.SockAddrInet 1 2
, requestHeaders = headers , requestHeaders = headers
, rawPathInfo = url , rawPathInfo = urlPath
, pathInfo = DL.filter (/="") $ T.split (== '/') $ TE.decodeUtf8 url , 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 -- | 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. -- or setting up pre-conditions. At the moment this part is still very raw.

2
yesod-test/yesod-test.cabal
View File

@ -1,5 +1,5 @@
name: yesod-test name: yesod-test
version: 0.3.3.2 version: 0.3.4
license: MIT license: MIT
license-file: LICENSE license-file: LICENSE
author: Nubis <nubis@woobiz.com.ar> author: Nubis <nubis@woobiz.com.ar>