Revision d676dbea test/hs/Test/Ganeti/OpCodes.hs

b/test/hs/Test/Ganeti/OpCodes.hs
75 75
instance Arbitrary INicParams where
76 76
  arbitrary = INicParams <$> genMaybe genNameNE <*> genMaybe genName <*>
77 77
              genMaybe genNameNE <*> genMaybe genNameNE <*> genMaybe genNameNE
78
              <*> genMaybe genNameNE
78 79

  
79 80
instance Arbitrary IDiskParams where
80 81
  arbitrary = IDiskParams <$> arbitrary <*> arbitrary <*>

Also available in: Unified diff