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

b/test/hs/Test/Ganeti/OpCodes.hs
177 177 
          emptyMUD <*> emptyMUD <*> arbitrary <*>
178 178 
          arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*>
179 179 
          arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*>
180 
          genMaybe (genName >>= mkNonEmpty) <*>
181 
          genMaybe (genName >>= mkNonEmpty)
180 
          genMaybe genName <*>
181 
          genMaybe genName
182 182 
      "OP_CLUSTER_REDIST_CONF" -> pure OpCodes.OpClusterRedistConf
183 183 
      "OP_CLUSTER_ACTIVATE_MASTER_IP" ->
184 184 
        pure OpCodes.OpClusterActivateMasterIp

Also available in: Unified diff