Fix the example in Servant.Server
commit54812a90792ac40c9866a4f67767ea439e7f61a9
authorDmitry Ivanov <ethercrow@gmail.com>
dateTue 2 Apr 2019, 17:58 (8 years ago)
parentcfe4869
servant-server/src/Servant/Server.hs+1−1
@@ -110,7 +110,7 @@ import Servant.Server.Internal
110110-- Example:
111111--
112112-- > type MyApi = "books" :> Get '[JSON] [Book] -- GET /books
113−-- > :<|> "books" :> ReqBody Book :> Post '[JSON] Book -- POST /books
113+-- > :<|> "books" :> ReqBody '[JSON] Book :> Post '[JSON] Book -- POST /books
114114-- >
115115-- > server :: Server MyApi
116116-- > server = listAllBooks :<|> postBook