Revision 8cd36391 htools/Ganeti/HTools/ExtLoader.hs

b/htools/Ganeti/HTools/ExtLoader.hs
38 38 
import System.FilePath
39 39 
import System.IO
40 40 
import System
41 
import Text.Printf (printf, hPrintf)
41 
import Text.Printf (hPrintf)
42 42 

  		





  43
  43
  
    
import qualified Ganeti.HTools.Luxi as Luxi


  		





  44
  44
  
    
import qualified Ganeti.HTools.Rapi as Rapi


  		





  ......




  123
  123
  
    
      )


  		





  124
  124
  
    
  let (fix_msgs, nl) = checkData (cdNodes cdata) (cdInstances cdata)


  		





  125
  125
  
    

  		





  126
  
  
    
  unless (null fix_msgs || optVerbose opts == 0) $ do


  		





  127
  
  
    
         hPutStrLn stderr "Warning: cluster has inconsistent data:"


  		





  128
  
  
    
         hPutStrLn stderr . unlines . map (printf "  - %s") $ fix_msgs


  		





  
  126
  
    
  unless (optVerbose opts == 0) $ maybeShowWarnings fix_msgs


  		





  129
  127
  
    

  		





  130
  128
  
    
  return cdata {cdNodes = nl}


  		





  131
  129
  
    

  		












Also available in:
  Unified diff