Revision fc963293

b/src/Ganeti/OpCodes.hs
335 335
     [t| [[JSValue]] |],
336 336
     OpDoc.opNodeQueryStorage,
337 337
     [ pOutputFields
338
     , pStorageTypeOptional
338
     , pOptStorageType
339 339
     , withDoc
340 340
       "Empty list to query all, list of names to query otherwise"
341 341
       pNodes
b/src/Ganeti/OpParams.hs
162 162
  , pRequiredNodes
163 163
  , pRequiredNodeUuids
164 164
  , pStorageType
165
  , pStorageTypeOptional
165
  , pOptStorageType
166 166
  , pStorageChanges
167 167
  , pMasterCandidate
168 168
  , pOffline
......
894 894
pStorageType =
895 895
  withDoc "Storage type" $ simpleField "storage_type" [t| StorageType |]
896 896

  
897
pStorageTypeOptional :: Field
898
pStorageTypeOptional =
897
pOptStorageType :: Field
898
pOptStorageType =
899 899
  withDoc "Storage type" .
900
  renameField "StorageTypeOptional" .
900
  renameField "OptStorageType" .
901 901
  optionalField $ simpleField "storage_type" [t| StorageType |]
902 902

  
903 903
pStorageName :: Field

Also available in: Unified diff