Revision e4c5beaf hscan.hs

b/hscan.hs
22 22 
import qualified Ganeti.HTools.Instance as Instance
23 23 
import qualified Ganeti.HTools.CLI as CLI
24 24 
import qualified Ganeti.HTools.Rapi as Rapi
25 
import Ganeti.HTools.Utils
25 
import qualified Ganeti.HTools.Loader as Loader
26 
import Ganeti.HTools.Types
26 27 

  		





  27
  28
  
    
-- | Command line options structure.


  		





  28
  29
  
    
data Options = Options


  		





  ......




  159
  160
  
    
              printf "%-*s " nlen name


  		





  160
  161
  
    
              hFlush stdout


  		





  161
  162
  
    
              input_data <- Rapi.loadData name


  		





  162
  
  
    
              let ldresult = input_data >>= Cluster.loadData


  		





  
  163
  
    
              let ldresult = input_data >>= Loader.mergeData


  		





  163
  164
  
    
              (case ldresult of


  		





  164
  165
  
    
                 Bad err -> printf "\nError: failed to load data. \


  		





  165
  166
  
    
                                   \Details:\n%s\n" err


  		












Also available in:
  Unified diff