Revision 4a273e97 Ganeti/HTools/Text.hs

b/Ganeti/HTools/Text.hs
34 34 
    , serializeInstances
35 35 
    , serializeNode
36 36 
    , serializeNodes
37 
    , serializeCluster
37 38 
    ) where
38 39 

  		





  39
  40
  
    
import Control.Monad


  		





  ......




  81
  82
  
    
serializeInstances nl =


  		





  82
  83
  
    
    unlines . map (serializeInstance nl) . Container.elems


  		





  83
  84
  
    

  		





  
  85
  
    
-- | Generate complete cluster data from node and instance lists


  		





  
  86
  
    
serializeCluster :: Node.List -> Instance.List -> String


  		





  
  87
  
    
serializeCluster nl il =


  		





  
  88
  
    
  let ndata = serializeNodes nl


  		





  
  89
  
    
      idata = serializeInstances nl il


  		





  
  90
  
    
  in ndata ++ ['\n'] ++ idata


  		





  
  91
  
    

  		





  84
  92
  
    
-- | Load a node from a field list.


  		





  85
  93
  
    
loadNode :: (Monad m) => [String] -> m (String, Node.Node)


  		





  86
  94
  
    
loadNode [name, tm, nm, fm, td, fd, tc, fo] = do


  		












Also available in:
  Unified diff