From cb8aa986f0af194bfbe0dfbd72a034f2acc9fe7e Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Wed, 3 Apr 2013 21:40:13 +0300 Subject: [PATCH] Fix yesod-test --- yesod-test/Yesod/Test.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/yesod-test/Yesod/Test.hs b/yesod-test/Yesod/Test.hs index ce7b2db4..38837967 100644 --- a/yesod-test/Yesod/Test.hs +++ b/yesod-test/Yesod/Test.hs @@ -42,7 +42,7 @@ module Yesod.Test , get , post , request - , addHeader + , addRequestHeader , setMethod , addPostParam , addGetParam @@ -471,8 +471,8 @@ setUrl url' = do , rbdGets = rbdGets rbd ++ H.parseQuery (TE.encodeUtf8 urlQuery) } -addHeader :: H.Header -> RequestBuilder site () -addHeader header = ST.modify $ \rbd -> rbd +addRequestHeader :: H.Header -> RequestBuilder site () +addRequestHeader header = ST.modify $ \rbd -> rbd { rbdHeaders = header : rbdHeaders rbd }