Commit 9bd2f449 authored by Helga Velroyen's avatar Helga Velroyen
Browse files

Revert "Storage utility functions for Haskell"

This reverts commit

Signed-off-by: default avatarHelga Velroyen <>
Reviewed-by: default avatarThomas Thrainer <>
parent 4b763320
......@@ -611,7 +611,6 @@ HS_LIB_SRCS = \
src/Ganeti/Storage/Diskstats/Types.hs \
src/Ganeti/Storage/Drbd/Parser.hs \
src/Ganeti/Storage/Drbd/Types.hs \
src/Ganeti/Storage/Utils.hs \
src/Ganeti/THH.hs \
src/Ganeti/Types.hs \
{-| Implementation of Utility functions for storage
Copyright (C) 2013 Google Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA.
module Ganeti.Storage.Utils
( getClusterStorageUnits
) where
import Ganeti.Objects
import Ganeti.Types
import qualified Ganeti.Types as T
type StorageUnit = (StorageType, String)
-- | Get the cluster's default storage unit for a given disk template
getDefaultStorageKey :: ConfigData -> DiskTemplate -> Maybe String
getDefaultStorageKey cfg T.DTDrbd8 = clusterVolumeGroupName $ configCluster cfg
getDefaultStorageKey cfg T.DTPlain = clusterVolumeGroupName $ configCluster cfg
getDefaultStorageKey cfg T.DTFile =
Just (clusterFileStorageDir $ configCluster cfg)
getDefaultStorageKey cfg T.DTSharedFile =
Just (clusterSharedFileStorageDir $ configCluster cfg)
getDefaultStorageKey _ _ = Nothing
-- | Get the cluster's default spindle storage unit
getDefaultSpindleSU :: ConfigData -> (StorageType, Maybe String)
getDefaultSpindleSU cfg =
(T.StorageLvmPv, clusterVolumeGroupName $ configCluster cfg)
-- | Get the cluster's storage units from the configuration
getClusterStorageUnits :: ConfigData -> [StorageUnit]
getClusterStorageUnits cfg = foldSUs (maybe_units ++ [spindle_unit])
where disk_templates = clusterEnabledDiskTemplates $ configCluster cfg
storage_types = map diskTemplateToStorageType disk_templates
maybe_units = zip storage_types (map (getDefaultStorageKey cfg)
spindle_unit = getDefaultSpindleSU cfg
-- | fold the storage unit list by sorting out the ones without keys
foldSUs :: [(StorageType, Maybe String)] -> [StorageUnit]
foldSUs = foldr ff []
where ff (st, Just sk) acc = (st, sk) : acc
ff (_, Nothing) acc = acc
-- | Mapping fo disk templates to storage type
-- FIXME: This is semantically the same as the constant
-- C.diskTemplatesStorageType
diskTemplateToStorageType :: DiskTemplate -> StorageType
diskTemplateToStorageType T.DTExt = T.StorageExt
diskTemplateToStorageType T.DTFile = T.StorageFile
diskTemplateToStorageType T.DTSharedFile = T.StorageFile
diskTemplateToStorageType T.DTDrbd8 = T.StorageLvmVg
diskTemplateToStorageType T.DTPlain = T.StorageLvmVg
diskTemplateToStorageType T.DTRbd = T.StorageRados
diskTemplateToStorageType T.DTDiskless = T.StorageDiskless
diskTemplateToStorageType T.DTBlock = T.StorageBlock
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment