Revision 66af5ec5 src/Ganeti/OpParams.hs
| b/src/Ganeti/OpParams.hs | ||
|---|---|---|
| 237 | 237 |
, pDependencies |
| 238 | 238 |
, pComment |
| 239 | 239 |
, pReason |
| 240 |
-- FIXME: Remove once enabled disk templates are fully implemented |
|
| 240 | 241 |
, pEnabledStorageTypes |
| 242 |
, pEnabledDiskTemplates |
|
| 241 | 243 |
, dOldQuery |
| 242 | 244 |
, dOldQueryNoLocking |
| 243 | 245 |
) where |
| ... | ... | |
| 760 | 762 |
simpleField "enabled_hypervisors" [t| NonEmpty Hypervisor |] |
| 761 | 763 |
|
| 762 | 764 |
-- | List of enabled storage methods. |
| 765 |
-- FIXME: Remove once enabled disk templates are fully implemented. |
|
| 763 | 766 |
pEnabledStorageTypes :: Field |
| 764 | 767 |
pEnabledStorageTypes = |
| 765 | 768 |
optionalField $ |
| 766 | 769 |
simpleField "enabled_storage_types" [t| NonEmpty StorageType |] |
| 767 | 770 |
|
| 771 |
-- | List of enabled disk templates. |
|
| 772 |
pEnabledDiskTemplates :: Field |
|
| 773 |
pEnabledDiskTemplates = |
|
| 774 |
optionalField $ |
|
| 775 |
simpleField "enabled_disk_templates" [t| NonEmpty DiskTemplate |] |
|
| 776 |
|
|
| 768 | 777 |
-- | Selected hypervisor for an instance. |
| 769 | 778 |
pHypervisor :: Field |
| 770 | 779 |
pHypervisor = |
Also available in: Unified diff