Fix the example in Servant.Server

2019-04-02 17:58:48 +02:00 · 2019-04-02 17:58:48 +02:00 · 54812a9079
commit 54812a9079
parent cfe4869303
1 changed files with 1 additions and 1 deletions
--- a/servant-server/src/Servant/Server.hs
+++ b/servant-server/src/Servant/Server.hs
@ -110,7 +110,7 @@ import           Servant.Server.Internal
 -- Example:
 --
 -- > type MyApi = "books" :> Get '[JSON] [Book] -- GET /books
-- >         :<|> "books" :> ReqBody Book :> Post '[JSON] Book -- POST /books
+-- >         :<|> "books" :> ReqBody '[JSON] Book :> Post '[JSON] Book -- POST /books
 -- >
 -- > server :: Server MyApi
 -- > server = listAllBooks :<|> postBook