Revision fa7f3e26 src/Ganeti/Storage/Utils.hs

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