dhall/server/package.dhall


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

let Service = ./service/package.dhall

let Server =
      { kong_app_admin_url : Text
      , kong_app_admin_apikey : Text
      , services : List Service.Type
      }

let Vault = ./../Vault.dhall

let mkServer =
        λ(vault : Vault)
      → λ(adminUrl : Text)
      → λ(services : List Service.Type)
      →   { kong_app_admin_url = adminUrl
          , kong_app_admin_apikey = vault.appAdminApiKey
          , services = services
          }
        : Server

in  { Service = Service, Type = Server, mkServer = mkServer }