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

Fix yesod-test

Browse Source
This commit is contained in:
Michael Snoyman 2013-04-03 21:40:13 +03:00
parent 8faaca5fa5
commit cb8aa986f0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -42,7 +42,7 @@ module Yesod.Test
, get , get
, post , post
, request , request
, addHeader , addRequestHeader
, setMethod , setMethod
, addPostParam , addPostParam
, addGetParam , addGetParam
@ -471,8 +471,8 @@ setUrl url' = do
, rbdGets = rbdGets rbd ++ H.parseQuery (TE.encodeUtf8 urlQuery) , rbdGets = rbdGets rbd ++ H.parseQuery (TE.encodeUtf8 urlQuery)
} }
addHeader :: H.Header -> RequestBuilder site () addRequestHeader :: H.Header -> RequestBuilder site ()
addHeader header = ST.modify $ \rbd -> rbd addRequestHeader header = ST.modify $ \rbd -> rbd
{ rbdHeaders = header : rbdHeaders rbd { rbdHeaders = header : rbdHeaders rbd
} }