We now have Hypervisor type in Objects, might just as well use it. Signed-off-by: Agata Murawska <[email protected]> --- htools/Ganeti/Objects.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/htools/Ganeti/Objects.hs b/htools/Ganeti/Objects.hs index 2a3207d..3504ed5 100644 --- a/htools/Ganeti/Objects.hs +++ b/htools/Ganeti/Objects.hs @@ -592,7 +592,7 @@ $(buildObject "Cluster" "cluster" $ , simpleField "cluster_name" [t| String |] , simpleField "file_storage_dir" [t| String |] , simpleField "shared_file_storage_dir" [t| String |] - , simpleField "enabled_hypervisors" [t| [String] |] + , simpleField "enabled_hypervisors" [t| [Hypervisor] |] , simpleField "hvparams" [t| ClusterHvParams |] , simpleField "os_hvp" [t| OsHvParams |] , simpleField "beparams" [t| ClusterBeParams |] -- 1.7.7.3
