Revision 8a5d326f src/Ganeti/Objects.hs
| b/src/Ganeti/Objects.hs | ||
|---|---|---|
| 9 | 9 |
|
| 10 | 10 |
{-
|
| 11 | 11 |
|
| 12 |
Copyright (C) 2011, 2012, 2013 Google Inc. |
|
| 12 |
Copyright (C) 2011, 2012, 2013, 2014 Google Inc.
|
|
| 13 | 13 |
|
| 14 | 14 |
This program is free software; you can redistribute it and/or modify |
| 15 | 15 |
it under the terms of the GNU General Public License as published by |
| ... | ... | |
| 670 | 670 |
|
| 671 | 671 |
-- * Cluster definitions |
| 672 | 672 |
$(buildObject "Cluster" "cluster" $ |
| 673 |
[ simpleField "rsahostkeypub" [t| String |] |
|
| 673 |
[ simpleField "rsahostkeypub" [t| String |]
|
|
| 674 | 674 |
, optionalField $ |
| 675 |
simpleField "dsahostkeypub" [t| String |] |
|
| 676 |
, simpleField "highest_used_port" [t| Int |] |
|
| 677 |
, simpleField "tcpudp_port_pool" [t| [Int] |] |
|
| 678 |
, simpleField "mac_prefix" [t| String |] |
|
| 675 |
simpleField "dsahostkeypub" [t| String |]
|
|
| 676 |
, simpleField "highest_used_port" [t| Int |]
|
|
| 677 |
, simpleField "tcpudp_port_pool" [t| [Int] |]
|
|
| 678 |
, simpleField "mac_prefix" [t| String |]
|
|
| 679 | 679 |
, optionalField $ |
| 680 |
simpleField "volume_group_name" [t| String |] |
|
| 681 |
, simpleField "reserved_lvs" [t| [String] |] |
|
| 680 |
simpleField "volume_group_name" [t| String |]
|
|
| 681 |
, simpleField "reserved_lvs" [t| [String] |]
|
|
| 682 | 682 |
, optionalField $ |
| 683 |
simpleField "drbd_usermode_helper" [t| String |] |
|
| 684 |
, simpleField "master_node" [t| String |] |
|
| 685 |
, simpleField "master_ip" [t| String |] |
|
| 686 |
, simpleField "master_netdev" [t| String |] |
|
| 687 |
, simpleField "master_netmask" [t| Int |] |
|
| 688 |
, simpleField "use_external_mip_script" [t| Bool |] |
|
| 689 |
, simpleField "cluster_name" [t| String |] |
|
| 690 |
, simpleField "file_storage_dir" [t| String |] |
|
| 691 |
, simpleField "shared_file_storage_dir" [t| String |] |
|
| 692 |
, simpleField "gluster_storage_dir" [t| String |] |
|
| 693 |
, simpleField "enabled_hypervisors" [t| [Hypervisor] |] |
|
| 694 |
, simpleField "hvparams" [t| ClusterHvParams |] |
|
| 695 |
, simpleField "os_hvp" [t| OsHvParams |] |
|
| 696 |
, simpleField "beparams" [t| ClusterBeParams |] |
|
| 697 |
, simpleField "osparams" [t| ClusterOsParams |] |
|
| 698 |
, simpleField "osparams_private_cluster" [t| ClusterOsParamsPrivate |] |
|
| 699 |
, simpleField "nicparams" [t| ClusterNicParams |] |
|
| 700 |
, simpleField "ndparams" [t| FilledNDParams |] |
|
| 701 |
, simpleField "diskparams" [t| DiskParams |] |
|
| 702 |
, simpleField "candidate_pool_size" [t| Int |] |
|
| 703 |
, simpleField "modify_etc_hosts" [t| Bool |] |
|
| 704 |
, simpleField "modify_ssh_setup" [t| Bool |] |
|
| 705 |
, simpleField "maintain_node_health" [t| Bool |] |
|
| 706 |
, simpleField "uid_pool" [t| UidPool |] |
|
| 707 |
, simpleField "default_iallocator" [t| String |] |
|
| 708 |
, simpleField "default_iallocator_params" [t| IAllocatorParams |] |
|
| 709 |
, simpleField "hidden_os" [t| [String] |] |
|
| 710 |
, simpleField "blacklisted_os" [t| [String] |] |
|
| 711 |
, simpleField "primary_ip_family" [t| IpFamily |] |
|
| 712 |
, simpleField "prealloc_wipe_disks" [t| Bool |] |
|
| 713 |
, simpleField "ipolicy" [t| FilledIPolicy |] |
|
| 714 |
, simpleField "enabled_disk_templates" [t| [DiskTemplate] |] |
|
| 715 |
, simpleField "candidate_certs" [t| CandidateCertificates |] |
|
| 716 |
, simpleField "max_running_jobs" [t| Int |] |
|
| 683 |
simpleField "drbd_usermode_helper" [t| String |] |
|
| 684 |
, simpleField "master_node" [t| String |] |
|
| 685 |
, simpleField "master_ip" [t| String |] |
|
| 686 |
, simpleField "master_netdev" [t| String |] |
|
| 687 |
, simpleField "master_netmask" [t| Int |] |
|
| 688 |
, simpleField "use_external_mip_script" [t| Bool |] |
|
| 689 |
, simpleField "cluster_name" [t| String |] |
|
| 690 |
, simpleField "file_storage_dir" [t| String |] |
|
| 691 |
, simpleField "shared_file_storage_dir" [t| String |] |
|
| 692 |
, simpleField "gluster_storage_dir" [t| String |] |
|
| 693 |
, simpleField "enabled_hypervisors" [t| [Hypervisor] |] |
|
| 694 |
, simpleField "hvparams" [t| ClusterHvParams |] |
|
| 695 |
, simpleField "os_hvp" [t| OsHvParams |] |
|
| 696 |
, simpleField "beparams" [t| ClusterBeParams |] |
|
| 697 |
, simpleField "osparams" [t| ClusterOsParams |] |
|
| 698 |
, simpleField "osparams_private_cluster" [t| ClusterOsParamsPrivate |] |
|
| 699 |
, simpleField "nicparams" [t| ClusterNicParams |] |
|
| 700 |
, simpleField "ndparams" [t| FilledNDParams |] |
|
| 701 |
, simpleField "diskparams" [t| DiskParams |] |
|
| 702 |
, simpleField "candidate_pool_size" [t| Int |] |
|
| 703 |
, simpleField "modify_etc_hosts" [t| Bool |] |
|
| 704 |
, simpleField "modify_ssh_setup" [t| Bool |] |
|
| 705 |
, simpleField "maintain_node_health" [t| Bool |] |
|
| 706 |
, simpleField "uid_pool" [t| UidPool |] |
|
| 707 |
, simpleField "default_iallocator" [t| String |] |
|
| 708 |
, simpleField "default_iallocator_params" [t| IAllocatorParams |] |
|
| 709 |
, simpleField "hidden_os" [t| [String] |] |
|
| 710 |
, simpleField "blacklisted_os" [t| [String] |] |
|
| 711 |
, simpleField "primary_ip_family" [t| IpFamily |] |
|
| 712 |
, simpleField "prealloc_wipe_disks" [t| Bool |] |
|
| 713 |
, simpleField "ipolicy" [t| FilledIPolicy |] |
|
| 714 |
, simpleField "enabled_disk_templates" [t| [DiskTemplate] |] |
|
| 715 |
, simpleField "candidate_certs" [t| CandidateCertificates |] |
|
| 716 |
, simpleField "max_running_jobs" [t| Int |] |
|
| 717 |
, simpleField "instance_communication_network" [t| String |] |
|
| 717 | 718 |
] |
| 718 | 719 |
++ timeStampFields |
| 719 | 720 |
++ uuidFields |
Also available in: Unified diff