Revision 2ca1b52d

b/src/Ganeti/OpParams.hs
349 349
  , optionalField $ simpleField C.idiskVg     [t| NonEmptyString |]
350 350
  , optionalField $ simpleField C.idiskMetavg [t| NonEmptyString |]
351 351
  , optionalField $ simpleField C.idiskName   [t| NonEmptyString |]
352
  , optionalField $ simpleField C.idiskSpindles [t| Int          |]
352 353
  ])
353 354

  
354 355
-- | Disk changes type for OpInstanceRecreateDisks. This is a bit
b/test/hs/Test/Ganeti/OpCodes.hs
94 94
instance Arbitrary IDiskParams where
95 95
  arbitrary = IDiskParams <$> arbitrary <*> arbitrary <*>
96 96
              genMaybe genNameNE <*> genMaybe genNameNE <*>
97
              genMaybe genNameNE <*> genMaybe genNameNE
97
              genMaybe genNameNE <*> genMaybe genNameNE <*>
98
              arbitrary
98 99

  
99 100
instance Arbitrary RecreateDisksInfo where
100 101
  arbitrary = oneof [ pure RecreateDisksAll

Also available in: Unified diff