Revision b9bdc10e htest/Test/Ganeti/Objects.hs

b/htest/Test/Ganeti/Objects.hs
177 177 
  nodes <- vector ncount
178 178 
  version <- arbitrary
179 179 
  let guuid = "00"
180 
      nodes' = map (\n -> n { nodeGroup = guuid }) nodes
180 
      nodes' = zipWith (\n idx -> n { nodeGroup = guuid,
181 
                                      nodeName = nodeName n ++ show idx })
182 
               nodes [(1::Int)..]
181 183 
      contnodes = Container . Map.fromList $ map (\n -> (nodeName n, n)) nodes'
182 184 
      continsts = Container $ Map.empty
183 185 
  grp <- arbitrary

Also available in: Unified diff