Revision 9eeb0aa5 htools/Ganeti/HTools/Program/Hscan.hs

b/htools/Ganeti/HTools/Program/Hscan.hs
39 39 
import qualified Ganeti.HTools.Instance as Instance
40 40 
import qualified Ganeti.HTools.Rapi as Rapi
41 41 
import qualified Ganeti.HTools.Luxi as Luxi
42 
import qualified Ganeti.Path as Path
42 43 
import Ganeti.HTools.Loader (checkData, mergeData, ClusterData(..))
43 44 
import Ganeti.HTools.Text (serializeCluster)
44 45 

  		





  ......




  138
  139
  
    
                "t_disk" "f_disk" "Score"


  		





  139
  140
  
    

  		





  140
  141
  
    
  when (null clusters) $ do


  		





  141
  
  
    
         let lsock = fromMaybe defaultLuxiSocket (optLuxi opts)


  		





  
  142
  
    
         let lsock = fromMaybe Path.defaultLuxiSocket (optLuxi opts)


  		





  142
  143
  
    
         let name = local


  		





  143
  144
  
    
         input_data <- Luxi.loadData lsock


  		





  144
  145
  
    
         result <- writeData nlen name opts input_data


  		












Also available in:
  Unified diff