Revision 71375ef7 htools/Ganeti/HTools/Program/Hscan.hs

b/htools/Ganeti/HTools/Program/Hscan.hs
82 82 
-- | Generates serialized data from loader input.
83 83 
processData :: ClusterData -> Result ClusterData
84 84 
processData input_data = do
85 
  cdata@(ClusterData _ nl il _) <- mergeData [] [] [] [] input_data
85 
  cdata@(ClusterData _ nl il _ _) <- mergeData [] [] [] [] input_data
86 86 
  let (_, fix_nl) = checkData nl il
87 87 
  return cdata { cdNodes = fix_nl }
88 88 

  		





  ......




  111
  111
  
    
               -> ClusterData


  		





  112
  112
  
    
               -> IO Bool


  		





  113
  113
  
    
writeDataInner nlen name opts cdata fixdata = do


  		





  114
  
  
    
  let (ClusterData _ nl il _) = fixdata


  		





  
  114
  
    
  let (ClusterData _ nl il _ _) = fixdata


  		





  115
  115
  
    
  printf "%-*s " nlen name :: IO ()


  		





  116
  116
  
    
  hFlush stdout


  		





  117
  117
  
    
  let shownodes = optShowNodes opts


  		












Also available in:
  Unified diff