Revision 67fc4de7 htest/Test/Ganeti/OpCodes.hs

b/htest/Test/Ganeti/OpCodes.hs
159 159 
          arbitrary <*> arbitrary <*> arbitrary <*>
160 160 
          arbitrary <*> arbitrary <*> arbitrary <*>
161 161 
          emptyMUD <*> emptyMUD <*> arbitrary <*>
162 
          arbitrary <*> arbitrary <*> arbitrary <*>
162 
          arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*>
163 163 
          arbitrary <*> arbitrary <*> arbitrary
164 164 
      "OP_CLUSTER_REDIST_CONF" -> pure OpCodes.OpClusterRedistConf
165 165 
      "OP_CLUSTER_ACTIVATE_MASTER_IP" ->
......
195 195 
        OpCodes.OpNodeSetParams <$> genNodeNameNE <*> arbitrary <*>
196 196 
          emptyMUD <*> emptyMUD <*> arbitrary <*> arbitrary <*> arbitrary <*>
197 197 
          arbitrary <*> arbitrary <*> arbitrary <*> genMaybe genNameNE <*>
198 
          emptyMUD
198 
          emptyMUD <*> arbitrary
199 199 
      "OP_NODE_POWERCYCLE" ->
200 200 
        OpCodes.OpNodePowercycle <$> genNodeNameNE <*> arbitrary
201 201 
      "OP_NODE_MIGRATE" ->
......
296 296 
      "OP_BACKUP_EXPORT" ->
297 297 
        OpCodes.OpBackupExport <$> genFQDN <*> arbitrary <*>
298 298 
          arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*>
299 
          genMaybe (pure []) <*> genMaybe genNameNE
299 
          arbitrary <*> genMaybe (pure []) <*> genMaybe genNameNE
300 300 
      "OP_BACKUP_REMOVE" ->
301 301 
        OpCodes.OpBackupRemove <$> genFQDN
302 302 
      "OP_TEST_ALLOCATOR" ->

Also available in: Unified diff