Revision 4b92e992 src/Ganeti/Rpc.hs
| b/src/Ganeti/Rpc.hs | ||
|---|---|---|
| 337 | 337 |
-- | NodeInfo |
| 338 | 338 |
-- Return node information. |
| 339 | 339 |
$(buildObject "RpcCallNodeInfo" "rpcCallNodeInfo" |
| 340 |
[ simpleField "volume_groups" [t| [String] |]
|
|
| 340 |
[ simpleField "storage_units" [t| [ (StorageType,String) ] |]
|
|
| 341 | 341 |
, simpleField "hypervisors" [t| [Hypervisor] |] |
| 342 | 342 |
, simpleField "exclusive_storage" [t| Map.Map String Bool |] |
| 343 | 343 |
]) |
| ... | ... | |
| 369 | 369 |
rpcCallTimeout _ = rpcTimeoutToRaw Urgent |
| 370 | 370 |
rpcCallAcceptOffline _ = False |
| 371 | 371 |
rpcCallData n call = J.encode |
| 372 |
( rpcCallNodeInfoVolumeGroups call
|
|
| 372 |
( rpcCallNodeInfoStorageUnits call
|
|
| 373 | 373 |
, rpcCallNodeInfoHypervisors call |
| 374 | 374 |
, fromMaybe (error $ "Programmer error: missing parameter for node named " |
| 375 | 375 |
++ nodeName n) |
Also available in: Unified diff