Revision b75430d9

b/src/Ganeti/OpParams.hs
355 355
  , optionalField $ simpleField C.idiskVg     [t| NonEmptyString |]
356 356
  , optionalField $ simpleField C.idiskMetavg [t| NonEmptyString |]
357 357
  , optionalField $ simpleField C.idiskName   [t| NonEmptyString |]
358
  , optionalField $ simpleField C.idiskProvider [t| NonEmptyString |]
358 359
  , optionalField $ simpleField C.idiskSpindles [t| Int          |]
359 360
  ])
360 361

  
b/test/hs/Test/Ganeti/OpCodes.hs
95 95
  arbitrary = IDiskParams <$> arbitrary <*> arbitrary <*>
96 96
              genMaybe genNameNE <*> genMaybe genNameNE <*>
97 97
              genMaybe genNameNE <*> genMaybe genNameNE <*>
98
              arbitrary
98
              genMaybe genNameNE <*> arbitrary
99 99

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

Also available in: Unified diff