4r/4r-api/Api/V1.hs

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'