Revision b54ecf12 src/Ganeti/Objects.hs
| b/src/Ganeti/Objects.hs | ||
|---|---|---|
| 426 | 426 |
, diskSize :: Int |
| 427 | 427 |
, diskMode :: DiskMode |
| 428 | 428 |
, diskName :: Maybe String |
| 429 |
, diskSpindles :: Maybe Int |
|
| 429 | 430 |
, diskUuid :: String |
| 430 | 431 |
} deriving (Show, Eq) |
| 431 | 432 |
|
| ... | ... | |
| 438 | 439 |
, simpleField "size" [t| Int |] |
| 439 | 440 |
, defaultField [| DiskRdWr |] $ simpleField "mode" [t| DiskMode |] |
| 440 | 441 |
, optionalField $ simpleField "name" [t| String |] |
| 442 |
, optionalField $ simpleField "spindles" [t| Int |] |
|
| 441 | 443 |
] |
| 442 | 444 |
++ uuidFields) |
| 443 | 445 |
|
Also available in: Unified diff