Revision 26e1312d src/Ganeti/Objects.hs

b/src/Ganeti/Objects.hs
399 399 
  , diskSize       :: Int
400 400 
  , diskMode       :: DiskMode
401 401 
  , diskName       :: Maybe String
402 
  , diskInstance   :: Maybe String
402 403 
  , diskSpindles   :: Maybe Int
403 404 
  , diskUuid       :: String
404 405 
  } deriving (Show, Eq)
......
411 412 
  , simpleField "size" [t| Int |]
412 413 
  , defaultField [| DiskRdWr |] $ simpleField "mode" [t| DiskMode |]
413 414 
  , optionalField $ simpleField "name" [t| String |]
415 
  , optionalField $ simpleField "instance" [t| String |]
414 416 
  , optionalField $ simpleField "spindles" [t| Int |]
415 417 
  ]
416 418 
  ++ uuidFields)

Also available in: Unified diff