.. which were missing at the Haskell side. Since they're not currently used (according to 'man ganeti'), we just collect the content in 'JSValue'.
Signed-off-by: Petr Pudlak <[email protected]> --- src/Ganeti/Objects.hs | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/src/Ganeti/Objects.hs b/src/Ganeti/Objects.hs index 0fc3175..d89314d 100644 --- a/src/Ganeti/Objects.hs +++ b/src/Ganeti/Objects.hs @@ -745,6 +745,18 @@ type IAllocatorParams = Container JSValue -- | The master candidate client certificate digests type CandidateCertificates = Container String +-- | Disk state parameters. +-- +-- As according to the documentation this option is unused by Ganeti, +-- the content is just a 'JSValue'. +type DiskState = Container JSValue + +-- | Hypervisor state parameters. +-- +-- As according to the documentation this option is unused by Ganeti, +-- the content is just a 'JSValue'. +type HypervisorState = Container JSValue + -- * Cluster definitions $(buildObject "Cluster" "cluster" $ [ simpleField "rsahostkeypub" [t| String |] @@ -788,6 +800,8 @@ $(buildObject "Cluster" "cluster" $ , simpleField "primary_ip_family" [t| IpFamily |] , simpleField "prealloc_wipe_disks" [t| Bool |] , simpleField "ipolicy" [t| FilledIPolicy |] + , simpleField "hv_state_static" [t| HypervisorState |] + , simpleField "disk_state_static" [t| DiskState |] , simpleField "enabled_disk_templates" [t| [DiskTemplate] |] , simpleField "candidate_certs" [t| CandidateCertificates |] , simpleField "max_running_jobs" [t| Int |] -- 2.0.0.526.g5318336
