Revision a1c6212e hn1.hs

b/hn1.hs
137 137 
            host -> (readData getNodes host,
138 138 
                     readData getInstances host)
139 139 

  		





  140
  
  
    
  (nl, il, csf, ktn, kti) <- liftM2 Cluster.loadData node_data inst_data


  		





  
  140
  
    
  (loaded_nl, il, csf, ktn, kti) <- liftM2 Cluster.loadData node_data inst_data


  		





  
  141
  
    

  		





  
  142
  
    
  let (fix_msgs, nl) = Cluster.checkData loaded_nl il ktn kti


  		





  
  143
  
    

  		





  
  144
  
    
  unless (null fix_msgs) $ do


  		





  
  145
  
    
         putStrLn "Warning: cluster has inconsistent data:"


  		





  
  146
  
    
         putStrLn . unlines . map (\s -> printf "  - %s" s) $ fix_msgs


  		





  141
  147
  
    

  		





  142
  148
  
    
  printf "Loaded %d nodes, %d instances\n"


  		





  143
  149
  
    
             (Container.size nl)


  		












Also available in:
  Unified diff