Revision 32389d91 src/Ganeti/Rpc.hs
| b/src/Ganeti/Rpc.hs | ||
|---|---|---|
| 52 | 52 |
, RpcResultInstanceList(..) |
| 53 | 53 |
|
| 54 | 54 |
, HvInfo(..) |
| 55 |
, VgInfo(..)
|
|
| 55 |
, StorageInfo(..)
|
|
| 56 | 56 |
, RpcCallNodeInfo(..) |
| 57 | 57 |
, RpcResultNodeInfo(..) |
| 58 | 58 |
|
| ... | ... | |
| 342 | 342 |
, simpleField "exclusive_storage" [t| Map.Map String Bool |] |
| 343 | 343 |
]) |
| 344 | 344 |
|
| 345 |
$(buildObject "VgInfo" "vgInfo"
|
|
| 345 |
$(buildObject "StorageInfo" "storageInfo"
|
|
| 346 | 346 |
[ simpleField "name" [t| String |] |
| 347 | 347 |
, simpleField "type" [t| String |] |
| 348 |
, optionalField $ simpleField "vg_free" [t| Int |]
|
|
| 349 |
, optionalField $ simpleField "vg_size" [t| Int |]
|
|
| 348 |
, optionalField $ simpleField "storage_free" [t| Int |]
|
|
| 349 |
, optionalField $ simpleField "storage_size" [t| Int |]
|
|
| 350 | 350 |
]) |
| 351 | 351 |
|
| 352 | 352 |
-- | We only provide common fields as described in hv_base.py. |
| ... | ... | |
| 361 | 361 |
|
| 362 | 362 |
$(buildObject "RpcResultNodeInfo" "rpcResNodeInfo" |
| 363 | 363 |
[ simpleField "boot_id" [t| String |] |
| 364 |
, simpleField "vg_info" [t| [VgInfo] |]
|
|
| 364 |
, simpleField "storage_info" [t| [StorageInfo] |]
|
|
| 365 | 365 |
, simpleField "hv_info" [t| [HvInfo] |] |
| 366 | 366 |
]) |
| 367 | 367 |
|
Also available in: Unified diff