18 lines
490 B
Haskell
18 lines
490 B
Haskell
module Api.V1 (request, request') where
|
|
|
|
import Relude
|
|
|
|
import Polysemy (Members, Sem)
|
|
import Polysemy.Error (Error)
|
|
import Servant.Client.Streaming (ClientError, ClientM, client)
|
|
import Servant.Polysemy.Client (ServantClient, runClient)
|
|
|
|
import Api.V1.Spec
|
|
import Api.V1.Types
|
|
|
|
request' :: [Request] -> ClientM [Response]
|
|
request' = client (Proxy @Api) "Bearer ANON"
|
|
|
|
request :: Members '[ServantClient, Error ClientError] r => [Request] -> Sem r [Response]
|
|
request = runClient . request'
|