Revision cb0c77ff Ganeti/HTools/Loader.hs

b/Ganeti/HTools/Loader.hs
119 119 
  let (na, idx_node) =
120 120 
          unzip . map (\ (idx, (k, v)) -> ((k, idx), (idx, setIdx v idx)))
121 121 
          . zip [0..] $ nodes
122 
  in (M.fromList na, Container.fromAssocList idx_node)
122 
  in (M.fromList na, Container.fromList idx_node)
123 123 

  		





  124
  124
  
    
-- | For each instance, add its index to its primary and secondary nodes.


  		





  125
  125
  
    
fixNodes :: Node.List


  		












Also available in:
  Unified diff