Revision 4e4433e8

b/src/Ganeti/OpParams.hs
403 403
  , optionalField $ simpleField C.inicIp   [t| String         |]
404 404
  , optionalField $ simpleField C.inicMode [t| NonEmptyString |]
405 405
  , optionalField $ simpleField C.inicLink [t| NonEmptyString |]
406
  , optionalField $ simpleField C.inicName [t| NonEmptyString |]
406 407
  ])
407 408

  
408 409
-- | Disk modification definition. FIXME: disksize should be VTYPE_UNIT.
......
412 413
  , optionalField $ simpleField C.idiskAdopt  [t| NonEmptyString |]
413 414
  , optionalField $ simpleField C.idiskVg     [t| NonEmptyString |]
414 415
  , optionalField $ simpleField C.idiskMetavg [t| NonEmptyString |]
416
  , optionalField $ simpleField C.idiskName   [t| NonEmptyString |]
415 417
  ])
416 418

  
417 419
-- | Disk changes type for OpInstanceRecreateDisks. This is a bit
b/test/hs/Test/Ganeti/OpCodes.hs
76 76

  
77 77
instance Arbitrary INicParams where
78 78
  arbitrary = INicParams <$> genMaybe genNameNE <*> genMaybe genName <*>
79
              genMaybe genNameNE <*> genMaybe genNameNE
79
              genMaybe genNameNE <*> genMaybe genNameNE <*> genMaybe genNameNE
80 80

  
81 81
instance Arbitrary IDiskParams where
82 82
  arbitrary = IDiskParams <$> arbitrary <*> arbitrary <*>
83 83
              genMaybe genNameNE <*> genMaybe genNameNE <*>
84
              genMaybe genNameNE
84
              genMaybe genNameNE <*> genMaybe genNameNE
85 85

  
86 86
instance Arbitrary RecreateDisksInfo where
87 87
  arbitrary = oneof [ pure RecreateDisksAll

Also available in: Unified diff