Revision 4f90370c src/Ganeti/OpParams.hs
| b/src/Ganeti/OpParams.hs | ||
|---|---|---|
| 150 | 150 |
, pRequiredNodes |
| 151 | 151 |
, pRequiredNodeUuids |
| 152 | 152 |
, pStorageType |
| 153 |
, pStorageTypeOptional |
|
| 153 | 154 |
, pStorageChanges |
| 154 | 155 |
, pMasterCandidate |
| 155 | 156 |
, pOffline |
| ... | ... | |
| 834 | 835 |
|
| 835 | 836 |
pStorageType :: Field |
| 836 | 837 |
pStorageType = |
| 837 |
withDoc "Storage type" $ |
|
| 838 |
simpleField "storage_type" [t| StorageType |] |
|
| 838 |
withDoc "Storage type" $ simpleField "storage_type" [t| StorageType |] |
|
| 839 |
|
|
| 840 |
pStorageTypeOptional :: Field |
|
| 841 |
pStorageTypeOptional = |
|
| 842 |
withDoc "Storage type" . |
|
| 843 |
renameField "StorageTypeOptional" . |
|
| 844 |
optionalField $ simpleField "storage_type" [t| StorageType |] |
|
| 839 | 845 |
|
| 840 | 846 |
pStorageName :: Field |
| 841 | 847 |
pStorageName = |
Also available in: Unified diff