From fdb564abfedfa2600b15398fe4c83d423d817f32 Mon Sep 17 00:00:00 2001
From: Konstantine Rybnikov <k-bx@k-bx.com>
Date: Mon, 29 Jul 2013 17:00:32 +0300
Subject: [PATCH] Get post function back without overwriting content

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

diff --git a/yesod-test/Yesod/Test.hs b/yesod-test/Yesod/Test.hs
index 0587cac8..f1a6655f 100644
--- a/yesod-test/Yesod/Test.hs
+++ b/yesod-test/Yesod/Test.hs
@@ -464,7 +464,9 @@ addNonce = addNonce_ ""
 post :: (Yesod site, RedirectUrl site url)
      => url
      -> YesodExample site ()
-post url = postBody url ""
+post url =  request $ do
+  setMethod "POST"
+  setUrl url
 
 -- | Perform a POST request to url with sending a body into it.
 postBody :: (Yesod site, RedirectUrl site url)
@@ -472,9 +474,9 @@ postBody :: (Yesod site, RedirectUrl site url)
          -> BSL8.ByteString
          -> YesodExample site ()
 postBody url body = request $ do
-  setRequestBody body
   setMethod "POST"
   setUrl url
+  setRequestBody body
 
 -- | Perform a GET request to url, using params
 get :: (Yesod site, RedirectUrl site url)