Revision 966e1580 src/Ganeti/Query/Server.hs
b/src/Ganeti/Query/Server.hs | ||
---|---|---|
88 | 88 |
let cluster = configCluster cdata |
89 | 89 |
hypervisors = clusterEnabledHypervisors cluster |
90 | 90 |
storageTypes = clusterEnabledStorageTypes cluster |
91 |
diskTemplates = clusterEnabledDiskTemplates cluster |
|
91 | 92 |
def_hv = case hypervisors of |
92 | 93 |
x:_ -> showJSON x |
93 | 94 |
[] -> JSNull |
... | ... | |
140 | 141 |
showJSON $ clusterPreallocWipeDisks cluster) |
141 | 142 |
, ("hidden_os", showJSON $ clusterHiddenOs cluster) |
142 | 143 |
, ("blacklisted_os", showJSON $ clusterBlacklistedOs cluster) |
144 |
-- FIXME: remove storage types once enabled disk templates are |
|
145 |
-- fully implemented. |
|
143 | 146 |
, ("enabled_storage_types", showJSON storageTypes) |
147 |
, ("enabled_disk_templates", showJSON diskTemplates) |
|
144 | 148 |
] |
145 | 149 |
|
146 | 150 |
in return . Ok . J.makeObj $ obj |
Also available in: Unified diff