Revision ccf17aa3 src/Ganeti/Rpc.hs

b/src/Ganeti/Rpc.hs
60 60
  , RpcCallVersion(..)
61 61
  , RpcResultVersion(..)
62 62

  
63
  , StorageField(..)
64 63
  , RpcCallStorageList(..)
65 64
  , RpcResultStorageList(..)
66 65

  
......
414 413

  
415 414
-- ** StorageList
416 415

  
417
-- | StorageList
418

  
419
-- FIXME: This may be moved to Objects
420
$(declareSADT "StorageField"
421
  [ ( "SFUsed",        'C.sfUsed)
422
  , ( "SFName",        'C.sfName)
423
  , ( "SFAllocatable", 'C.sfAllocatable)
424
  , ( "SFFree",        'C.sfFree)
425
  , ( "SFSize",        'C.sfSize)
426
  ])
427
$(makeJSONInstance ''StorageField)
428

  
429 416
$(buildObject "RpcCallStorageList" "rpcCallStorageList"
430 417
  [ simpleField "su_name" [t| StorageType |]
431 418
  , simpleField "su_args" [t| [String] |]

Also available in: Unified diff