git.iko.soy/typeable/servant
on master help sign in
Fix the example in Servant.Server
54812a9Dmitry Ivanov
servant-server/src/Servant/Server.hs+1−1
compare with master
unifiedsplit
@@ -110,7 +110,7 @@ import Servant.Server.Internal
110-- Example:
110-- Example:
111--
111--
112-- > type MyApi = "books" :> Get '[JSON] [Book] -- GET /books
112-- > 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
114-- >
114-- >
115-- > server :: Server MyApi
115-- > server :: Server MyApi
116-- > server = listAllBooks :<|> postBook
116-- > server = listAllBooks :<|> postBook