dhall/server/mkServer.dhall


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

    let Server = ./Server.dhall

in  let Service = ./service/Service.dhall

in  let Vault = ./../Vault.dhall

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