Revision 3c1a8730 src/Ganeti/Objects.hs
b/src/Ganeti/Objects.hs | ||
---|---|---|
280 | 280 |
, simpleField "link" [t| String |] |
281 | 281 |
]) |
282 | 282 |
|
283 |
$(buildObject "PartialNic" "nic" |
|
283 |
$(buildObject "PartialNic" "nic" $
|
|
284 | 284 |
[ simpleField "mac" [t| String |] |
285 | 285 |
, optionalField $ simpleField "ip" [t| String |] |
286 | 286 |
, simpleField "nicparams" [t| PartialNicParams |] |
287 | 287 |
, optionalField $ simpleField "network" [t| String |] |
288 |
]) |
|
288 |
, optionalField $ simpleField "name" [t| String |] |
|
289 |
] ++ uuidFields) |
|
290 |
|
|
291 |
instance UuidObject PartialNic where |
|
292 |
uuidOf = nicUuid |
|
289 | 293 |
|
290 | 294 |
-- * Disk definitions |
291 | 295 |
|
... | ... | |
423 | 427 |
, diskIvName :: String |
424 | 428 |
, diskSize :: Int |
425 | 429 |
, diskMode :: DiskMode |
430 |
, diskName :: Maybe String |
|
431 |
, diskUuid :: String |
|
426 | 432 |
} deriving (Show, Eq) |
427 | 433 |
|
428 |
$(buildObjectSerialisation "Disk" |
|
434 |
$(buildObjectSerialisation "Disk" $
|
|
429 | 435 |
[ customField 'decodeDLId 'encodeFullDLId ["dev_type"] $ |
430 | 436 |
simpleField "logical_id" [t| DiskLogicalId |] |
431 | 437 |
-- , simpleField "physical_id" [t| String |] |
... | ... | |
433 | 439 |
, defaultField [| "" |] $ simpleField "iv_name" [t| String |] |
434 | 440 |
, simpleField "size" [t| Int |] |
435 | 441 |
, defaultField [| DiskRdWr |] $ simpleField "mode" [t| DiskMode |] |
436 |
]) |
|
442 |
, optionalField $ simpleField "name" [t| String |] |
|
443 |
] |
|
444 |
++ uuidFields) |
|
445 |
|
|
446 |
instance UuidObject Disk where |
|
447 |
uuidOf = diskUuid |
|
437 | 448 |
|
438 | 449 |
-- * Instance definitions |
439 | 450 |
|
Also available in: Unified diff