-- | Mapping of disk templates to storage types
mapDiskTemplateStorageType :: Map String String
mapDiskTemplateStorageType =
  Map.fromList $
  map (   Types.diskTemplateToRaw
      &&& Types.storageTypeToRaw . diskTemplateToStorageType)
  [minBound..maxBound]
mapDiskTemplateStorageType :: Map String String
mapDiskTemplateStorageType =
  Map.fromList $
  map (   Types.diskTemplateToRaw
      &&& Types.storageTypeToRaw . diskTemplateToStorageType)
  [minBound..maxBound]
mapDiskTemplateStorageType =
  Map.fromList $
  map (   Types.diskTemplateToRaw
      &&& Types.storageTypeToRaw . diskTemplateToStorageType)
  [minBound..maxBound]