Revision 015f1517 test/hs/Test/Ganeti/OpCodes.hs

b/test/hs/Test/Ganeti/OpCodes.hs
241 241
          genMaybe genNodeNameNE <*> return Nothing <*> genMaybe (pure []) <*>
242 242
          genMaybe genNodeNameNE <*> arbitrary <*> genMaybe genNodeNameNE <*>
243 243
          return Nothing <*> genMaybe genNodeNameNE <*> genMaybe genNameNE <*>
244
          arbitrary <*> arbitrary <*> (genTags >>= mapM mkNonEmpty)
244
          arbitrary <*> arbitrary <*> (genTags >>= mapM mkNonEmpty) <*>
245
          arbitrary
245 246
      "OP_INSTANCE_MULTI_ALLOC" ->
246 247
        OpCodes.OpInstanceMultiAlloc <$> arbitrary <*> genMaybe genNameNE <*>
247 248
        pure []

Also available in: Unified diff