@@ -22,7 +22,7 @@ import Test.Hspec.Wai
2222
2323import Servant.API.Capture
2424import Servant.API.Get
25−import Servant.API.JsonBody
25+import Servant.API.ReqBody
2626import Servant.API.Post
2727import Servant.API.QueryParam
2828import Servant.API.Raw
@@ -141,13 +141,13 @@ queryParamSpec = do
141141 }
142142
143143
144−type PostApi = JsonBody Person :> Post Integer
144+type PostApi = ReqBody Person :> Post Integer
145145postApi :: Proxy PostApi
146146postApi = Proxy
147147
148148postSpec :: Spec
149149postSpec = do
150− describe "Servant.API.Post and .JsonBody" $ do
150+ describe "Servant.API.Post and .ReqBody" $ do
151151 with (return (serve postApi (return . age))) $ do
152152 it "allows to POST a Person" $ do
153153 post "/" (encode alice) `shouldRespondWith` "42"{