Revision a57e502a src/Ganeti/Objects.hs

b/src/Ganeti/Objects.hs
379 379 
-- code currently can't build it.
380 380 
data Disk = Disk
381 381 
  { diskLogicalId  :: DiskLogicalId
382 
--  , diskPhysicalId :: String
383 382 
  , diskChildren   :: [Disk]
384 383 
  , diskIvName     :: String
385 384 
  , diskSize       :: Int
......
392 391 
$(buildObjectSerialisation "Disk" $
393 392 
  [ customField 'decodeDLId 'encodeFullDLId ["dev_type"] $
394 393 
      simpleField "logical_id"    [t| DiskLogicalId   |]
395 
--  , simpleField "physical_id" [t| String   |]
396 394 
  , defaultField  [| [] |] $ simpleField "children" [t| [Disk] |]
397 395 
  , defaultField [| "" |] $ simpleField "iv_name" [t| String |]
398 396 
  , simpleField "size" [t| Int |]

Also available in: Unified diff