Merge pull request #1162 from ethercrow/patch-1
Fix the example in Servant.Server
commit726380964a742bc614352c9676a9698cb3e36a4f
authorOleg Grenrus <oleg.grenrus@iki.fi>
dateWed 3 Apr 2019, 02:21 (8 years ago)
parentcfe486954812a9
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