Skip to content

KSF-Media/persona-haskell-client

Repository files navigation

Auto-Generated OpenAPI Bindings to Persona

The library in lib provides auto-generated-from-OpenAPI bindings to the Persona API.

Installation

Installation follows the standard approach to installing Stack-based projects.

  1. Install the Haskell stack tool.
  2. Run stack install to install this package.

Otherwise, if you already have a Stack project, you can include this package under the packages key in your stack.yaml:

packages:
- location:
    git: https://github.com/yourGitOrg/yourGitRepo
    commit: somecommit

Main Interface

The main interface to this library is in the Persona.API module, which exports the PersonaBackend type. The PersonaBackend type can be used to create and define servers and clients for the API.

Creating a Client

A client can be created via the createPersonaClient function, which will generate a function for every endpoint of the API. Then these functions can be invoked with runPersonaClientWithManager or more conveniently with callPersonaClient (depending if you want an Either back or you want to catch) to access the API endpoint they refer to, if the API is served at the url you specified.

For example, if localhost:8080 is serving the Persona API, you can write:

{-# LANGUAGE RecordWildCards #-}

import Persona.API as API

import           Network.HTTP.Client     (newManager)
import           Network.HTTP.Client.TLS (tlsManagerSettings)
import           Servant.Client          (ClientEnv, mkClientEnv, parseBaseUrl)


main :: IO ()
main = do
  -- Configure the BaseUrl for the client
  url <- parseBaseUrl "http://localhost:8080/"

  -- You probably want to reuse the Manager across calls, for performance reasons
  manager <- newManager tlsManagerSettings

  -- Create the client (all endpoint functions will be available)
  PersonaBackend{..} <- API.createPersonaClient

  -- Any Persona API call can go here, e.g. here we call `getSomeEndpoint`
  API.callPersona (mkClientEnv manager url) getSomeEndpoint

Creating a Server

In order to create a server, you must use the runPersonaServer function. However, you unlike the client, in which case you got a PersonaBackend from the library, you must instead provide a PersonaBackend. For example, if you have defined handler functions for all the functions in Persona.Handlers, you can write:

{-# LANGUAGE RecordWildCards #-}

import Persona.API

-- A module you wrote yourself, containing all handlers needed for the PersonaBackend type.
import Persona.Handlers

-- Run a Persona server on localhost:8080
main :: IO ()
main = do
  let server = PersonaBackend{..}
      config = Config "http://localhost:8080/"
  runPersonaServer config server

About

Autogenerated Haskell client for our login service

Resources

Stars

Watchers

Forks

Releases

No releases published

Packages

No packages published