diff --git a/servant-server/src/Servant/Server.hs b/servant-server/src/Servant/Server.hs index 731d9dd2..e2d9f3c5 100644 --- 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