Revision 5cbf7832 test/hs/Test/Ganeti/OpCodes.hs

b/test/hs/Test/Ganeti/OpCodes.hs
197 197 
        OpCodes.OpNodeRemove <$> genNodeNameNE <*> return Nothing
198 198 
      "OP_NODE_ADD" ->
199 199 
        OpCodes.OpNodeAdd <$> genNodeNameNE <*> emptyMUD <*> emptyMUD <*>
200 
          genNameNE <*> genMaybe genNameNE <*> arbitrary <*>
200 
          genMaybe genNameNE <*> genMaybe genNameNE <*> arbitrary <*>
201 201 
          genMaybe genNameNE <*> arbitrary <*> arbitrary <*> emptyMUD
202 202 
      "OP_NODE_QUERY" ->
203 203 
        OpCodes.OpNodeQuery <$> genFieldsNE <*> genNamesNE <*> arbitrary

Also available in: Unified diff