Revision ede6df3d

b/src/Ganeti/Storage/Utils.hs
34 34 
import qualified Ganeti.Types as T
35 35 

  		





  36
  36
  
    
import Control.Monad


  		





  
  37
  
    
import Data.List (nub)


  		





  37
  38
  
    
import Data.Maybe


  		





  38
  39
  
    
import qualified Data.Map as M


  		





  39
  40
  
    

  		





  ......




  56
  57
  
    
getClusterStorageUnitRaws :: ConfigData -> [StorageUnitRaw]


  		





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


  		





  58
  59
  
    
  where disk_templates = clusterEnabledDiskTemplates $ configCluster cfg


  		





  59
  
  
    
        storage_types = map diskTemplateToStorageType disk_templates


  		





  
  60
  
    
        storage_types = nub $ map diskTemplateToStorageType disk_templates


  		





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


  		





  61
  62
  
    
            disk_templates)


  		





  62
  63
  
    
        spindle_unit = getDefaultSpindleSU cfg


  		












Also available in:
  Unified diff