Revision fa7f3e26

b/src/Ganeti/Storage/Utils.hs
55 55 

  		





  56
  56
  
    
-- | Get the cluster's storage units from the configuration


  		





  57
  57
  
    
getClusterStorageUnitRaws :: ConfigData -> [StorageUnitRaw]


  		





  58
  
  
    
getClusterStorageUnitRaws cfg = foldSUs (maybe_units ++ [spindle_unit])


  		





  
  58
  
    
getClusterStorageUnitRaws cfg =


  		





  
  59
  
    
    foldSUs (nub (maybe_units ++ [spindle_unit]))


  		





  59
  60
  
    
  where disk_templates = clusterEnabledDiskTemplates $ configCluster cfg


  		





  60
  
  
    
        storage_types = nub $ map diskTemplateToStorageType disk_templates


  		





  
  61
  
    
        storage_types = map diskTemplateToStorageType disk_templates


  		





  61
  62
  
    
        maybe_units = zip storage_types (map (getDefaultStorageKey cfg)


  		





  62
  63
  
    
            disk_templates)


  		





  63
  64
  
    
        spindle_unit = getDefaultSpindleSU cfg


  		












Also available in:
  Unified diff