From 812922d9b614cf74b34fea53cc55fc6fb8e848ba Mon Sep 17 00:00:00 2001
From: Alp Mestanogullari <alpmestan@gmail.com>
Date: Tue, 28 Oct 2014 16:32:32 +0100
Subject: [PATCH] rename JsonBody to ReqBody in tests too -- this closes #11
 for now

---
 test/Servant/ServerSpec.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/test/Servant/ServerSpec.hs b/test/Servant/ServerSpec.hs
index a3c1f2ce..ed64864c 100644
--- a/test/Servant/ServerSpec.hs
+++ b/test/Servant/ServerSpec.hs
@@ -22,7 +22,7 @@ import Test.Hspec.Wai
 
 import Servant.API.Capture
 import Servant.API.Get
-import Servant.API.JsonBody
+import Servant.API.ReqBody
 import Servant.API.Post
 import Servant.API.QueryParam
 import Servant.API.Raw
@@ -141,13 +141,13 @@ queryParamSpec = do
            }
 
 
-type PostApi = JsonBody Person :> Post Integer
+type PostApi = ReqBody Person :> Post Integer
 postApi :: Proxy PostApi
 postApi = Proxy
 
 postSpec :: Spec
 postSpec = do
-  describe "Servant.API.Post and .JsonBody" $ do
+  describe "Servant.API.Post and .ReqBody" $ do
     with (return (serve postApi (return . age))) $ do
       it "allows to POST a Person" $ do
         post "/" (encode alice) `shouldRespondWith` "42"{