613dcf9ed5
- Setup a basic CI based on GitHub actions, with a somewhat limited build matrix. - Disable cookbook/testing, because servant-quickcheck doesn't build anymore. - Disable servant-docs on Cabal build, because of some test failures - The order of some JSON fields seems to be reversed in the output, need investigation. - Fix test failures in servant-http-streams when `localhost` points to an IPv6 address rather than 127.0.0.1. |
||
|---|---|---|
| .. | ||
| src/Servant | ||
| test | ||
| CHANGELOG.md | ||
| LICENSE | ||
| README.lhs | ||
| README.md | ||
| servant-http-streams.cabal | ||
| Setup.hs | ||
servant-client
This library lets you automatically derive Haskell functions that let you query each endpoint of a servant webservice.
Example
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeOperators #-}
import Data.Proxy
import Data.Text
import Servant.API
import Servant.HttpStreams
type Book = Text
type MyApi = "books" :> Get '[JSON] [Book] -- GET /books
:<|> "books" :> ReqBody '[JSON] Book :> Post '[JSON] Book -- POST /books
myApi :: Proxy MyApi
myApi = Proxy
-- 'client' allows you to produce operations to query an API from a client.
postNewBook :: Book -> ClientM Book
getAllBooks :: ClientM [Book]
(getAllBooks :<|> postNewBook) = client myApi
-- the IOException happens already in withClientEnvIO
main' :: IO ()
main' = do
let burl = BaseUrl Http "localhost" 8081 ""
withClientEnvIO burl $ \env -> do
res <- runClientM getAllBooks env
case res of
Left err -> putStrLn $ "Error: " ++ show err
Right books -> print books
main :: IO ()
main = return ()