Revision 64b0309a src/Ganeti/Query/Node.hs

b/src/Ganeti/Query/Node.hs
31 31 

  		





  32
  32
  
    
import Control.Applicative


  		





  33
  33
  
    
import Data.List


  		





  
  34
  
    
import Data.Maybe


  		





  34
  35
  
    
import qualified Data.Map as Map


  		





  35
  36
  
    
import qualified Text.JSON as J


  		





  36
  37
  
    

  		





  ......




  221
  222
  
    
maybeCollectLiveData False _ nodes =


  		





  222
  223
  
    
  return $ zip nodes (repeat $ Left (RpcResultError "Live data disabled"))


  		





  223
  224
  
    
maybeCollectLiveData True cfg nodes = do


  		





  224
  
  
    
  let vgs = [clusterVolumeGroupName $ configCluster cfg]


  		





  
  225
  
    
  let vgs = maybeToList . clusterVolumeGroupName $ configCluster cfg


  		





  225
  226
  
    
      hvs = [getDefaultHypervisor cfg]


  		





  226
  227
  
    
      step n (bn, gn, em) =


  		





  227
  228
  
    
        let ndp' = getNodeNdParams cfg n


  		












Also available in:
  Unified diff