Code generator from openapi schema

[anton-k]

We can generate API-types, server stub and client. From openapi schema.
By openapi input it will generate 3 packages:

• foo-api-types
• foo-server
• foo-client

The server is defined in terms of interfaces. For example:

in the API types:

type GetArticle m = Query "a" -> Get (Resp Json Article)
type PostArticle m = Body Article -> Query "author" Text -> Post (Resp Json ())

data Routes m = Routes {
  getArticle :: GetArticle m,
  postArticle :: PostArticle m
}

The server:

server :: Routes m -> Server m
server routes = 
   "site" /. [ "get/article" /. routes.getArticle
                , "post/article" /. routes.postArticle  ]

The client:

client :: Routes Client
client = Routes{..}
  where
     (getArticle, postArticle) = toClient (Routes getArticle, postArticle)