Revision c298ed02 htest/Test/Ganeti/OpCodes.hs

b/htest/Test/Ganeti/OpCodes.hs
219 219 
          genMaybe genNodeNameNE <*> genMaybe genNameNE <*>
220 220 
          arbitrary <*> arbitrary <*> (genTags >>= mapM mkNonEmpty)
221 221 
      "OP_INSTANCE_MULTI_ALLOC" ->
222 
        OpCodes.OpInstanceMultiAlloc <$> genMaybe genNameNE <*> pure []
222 
        OpCodes.OpInstanceMultiAlloc <$> genMaybe genNameNE <*> pure [] <*>
223 
          arbitrary
223 224 
      "OP_INSTANCE_REINSTALL" ->
224 225 
        OpCodes.OpInstanceReinstall <$> genFQDN <*> arbitrary <*>
225 226 
          genMaybe genNameNE <*> genMaybe (pure emptyJSObject)

Also available in: Unified diff