Revision 88127c47

b/htools/Ganeti/OpCodes.hs
383 383
     , pInstBeParams
384 384
     , pRuntimeMem
385 385
     , pInstHvParams
386
     , pDiskTemplate
386
     , pOptDiskTemplate
387 387
     , pRemoteNode
388 388
     , pOsNameChange
389 389
     , pInstOsParams
b/htools/Ganeti/OpParams.hs
97 97
  , pAllowRuntimeChgs
98 98
  , pInstDisks
99 99
  , pDiskTemplate
100
  , pOptDiskTemplate
100 101
  , pFileDriver
101 102
  , pFileStorageDir
102 103
  , pVgName
......
732 733
pDiskTemplate :: Field
733 734
pDiskTemplate = simpleField "disk_template" [t| DiskTemplate |]
734 735

  
736
-- | Instance disk template.
737
pOptDiskTemplate :: Field
738
pOptDiskTemplate =
739
  optionalField .
740
  renameField "OptDiskTemplate" $
741
  simpleField "disk_template" [t| DiskTemplate |]
742

  
735 743
-- | File driver.
736 744
pFileDriver :: Field
737 745
pFileDriver = optionalField $ simpleField "file_driver" [t| FileDriver |]

Also available in: Unified diff