From a9030aa2948e6d7f9663fb28eea1dd8c64263e54 Mon Sep 17 00:00:00 2001
From: pythonissam <k0uta120u@icloud.com>
Date: Sat, 14 Apr 2018 06:46:38 +0000
Subject: [PATCH] make get and post use performMethod

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

diff --git a/yesod-test/Yesod/Test.hs b/yesod-test/Yesod/Test.hs
index 505f645a..5ff6855d 100644
--- a/yesod-test/Yesod/Test.hs
+++ b/yesod-test/Yesod/Test.hs
@@ -895,9 +895,7 @@ getRequestCookies = do
 post :: (Yesod site, RedirectUrl site url)
      => url
      -> YesodExample site ()
-post url = request $ do
-  setMethod "POST"
-  setUrl url
+post = performMethod "POST"
 
 -- | Perform a POST request to @url@ with the given body.
 --
@@ -926,9 +924,7 @@ postBody url body = request $ do
 get :: (Yesod site, RedirectUrl site url)
     => url
     -> YesodExample site ()
-get url = request $ do
-    setMethod "GET"
-    setUrl url
+get = performMethod "GET"
 
 -- | Perform a request using a given method to @url@.
 --