Revision e73c5fe2 htools/Ganeti/HTools/QC.hs

b/htools/Ganeti/HTools/QC.hs
154 154 
-- | Create a small cluster by repeating a node spec.
155 155 
makeSmallCluster :: Node.Node -> Int -> Node.List
156 156 
makeSmallCluster node count =
157 
  let fn = Node.buildPeers node Container.empty
158 
      namelst = map (\n -> (Node.name n, n)) (replicate count fn)
157 
  let origname = Node.name node
158 
      origalias = Node.alias node
159 
      nodes = map (\idx -> node { Node.name = origname ++ "-" ++ show idx
160 
                                , Node.alias = origalias ++ "-" ++ show idx })
161 
              [1..count]
162 
      fn = flip Node.buildPeers Container.empty
163 
      namelst = map (\n -> (Node.name n, fn n)) nodes
159 164 
      (_, nlst) = Loader.assignIndices namelst
160 165 
  in nlst
161 166 

  		












Also available in:
  Unified diff