Revision 2cdaf225 htools/Ganeti/HTools/Simu.hs

b/htools/Ganeti/HTools/Simu.hs
30 30 
  , parseData
31 31 
  ) where
32 32 

  		





  33
  
  
    
import Control.Monad (mplus)


  		





  
  33
  
    
import Control.Monad (mplus, zipWithM)


  		





  34
  34
  
    
import Text.Printf (printf)


  		





  35
  35
  
    

  		





  36
  36
  
    
import Ganeti.HTools.Utils


  		





  ......




  90
  90
  
    
parseData :: [String] -- ^ Cluster description in text format


  		





  91
  91
  
    
          -> Result ClusterData


  		





  92
  92
  
    
parseData ndata = do


  		





  93
  
  
    
  grpNodeData <- mapM (uncurry createGroup) $ zip [1..] ndata


  		





  
  93
  
    
  grpNodeData <- zipWithM createGroup [1..] ndata


  		





  94
  94
  
    
  let (groups, nodes) = unzip grpNodeData


  		





  95
  95
  
    
      nodes' = concat nodes


  		





  96
  96
  
    
  let ktn = map (\(idx, n) -> (idx, Node.setIdx n idx))


  		












Also available in:
  Unified diff