mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-16 02:22:12 +03:00
Added dhall config sketch.
This commit is contained in:
parent
26f5964ef7
commit
2e5b1de297
70
pkg/king/dhall-sketch/config.dhall
Normal file
70
pkg/king/dhall-sketch/config.dhall
Normal file
@ -0,0 +1,70 @@
|
||||
let Persist = { collect-fx : Bool }
|
||||
|
||||
let FakeMode = < Dry | Wet : Persist >
|
||||
|
||||
let Mode = < Online : Persist | Local : Persist | Fake : FakeMode >
|
||||
|
||||
let Verbose = < Quiet | Normal | Verbose >
|
||||
|
||||
let King = { mode : Mode, log : Verbose }
|
||||
|
||||
let Serf =
|
||||
{ debug-ram :
|
||||
Bool
|
||||
, debug-cpu :
|
||||
Bool
|
||||
, check-corrupt :
|
||||
Bool
|
||||
, check-fatal :
|
||||
Bool
|
||||
, verbose :
|
||||
Bool
|
||||
, dry-run :
|
||||
Bool
|
||||
, quiet :
|
||||
Bool
|
||||
, hashless :
|
||||
Bool
|
||||
, trace :
|
||||
Bool
|
||||
}
|
||||
|
||||
let Ship = { addr : Text, serf : Serf, ames-port : Optional Natural }
|
||||
|
||||
let Config = { king : King, ships : List Ship }
|
||||
|
||||
let KingDefault =
|
||||
{ mode = Mode.Online { collect-fx = False }, log = Verbose.Normal } : King
|
||||
|
||||
let SerfDefault =
|
||||
{ debug-ram =
|
||||
False
|
||||
, debug-cpu =
|
||||
False
|
||||
, check-corrupt =
|
||||
False
|
||||
, check-fatal =
|
||||
False
|
||||
, verbose =
|
||||
False
|
||||
, dry-run =
|
||||
False
|
||||
, quiet =
|
||||
False
|
||||
, hashless =
|
||||
False
|
||||
, trace =
|
||||
False
|
||||
}
|
||||
: Serf
|
||||
|
||||
let ShipDefault =
|
||||
λ(addr : Text)
|
||||
→ { addr = addr, serf = SerfDefault, ames-port = None Natural }
|
||||
|
||||
let ConfigDefault = { king = KingDefault, ships = [] : List Ship } : Config
|
||||
|
||||
let ConfigExample =
|
||||
{ king = KingDefault, ships = [ ShipDefault "zod" ] } : Config
|
||||
|
||||
in ConfigExample
|
Loading…
Reference in New Issue
Block a user