Revision ec321549 src/Ganeti/HsConstants.hs

b/src/Ganeti/HsConstants.hs
1950 1950
diskLdParameters :: FrozenSet String
1951 1951
diskLdParameters = ConstantUtils.mkSet (Map.keys diskLdTypes)
1952 1952

  
1953
-- * Disk template parameters
1954
--
1955
-- Disk template parameters can be set/changed by the user via
1956
-- gnt-cluster and gnt-group)
1957

  
1958
drbdResyncRate :: String
1959
drbdResyncRate = "resync-rate"
1960

  
1961
drbdDataStripes :: String
1962
drbdDataStripes = "data-stripes"
1963

  
1964
drbdMetaStripes :: String
1965
drbdMetaStripes = "meta-stripes"
1966

  
1967
drbdDiskBarriers :: String
1968
drbdDiskBarriers = "disk-barriers"
1969

  
1970
drbdMetaBarriers :: String
1971
drbdMetaBarriers = "meta-barriers"
1972

  
1973
drbdDefaultMetavg :: String
1974
drbdDefaultMetavg = "metavg"
1975

  
1976
drbdDiskCustom :: String
1977
drbdDiskCustom = "disk-custom"
1978

  
1979
drbdNetCustom :: String
1980
drbdNetCustom = "net-custom"
1981

  
1982
drbdProtocol :: String
1983
drbdProtocol = "protocol"
1984

  
1985
drbdDynamicResync :: String
1986
drbdDynamicResync = "dynamic-resync"
1987

  
1988
drbdPlanAhead :: String
1989
drbdPlanAhead = "c-plan-ahead"
1990

  
1991
drbdFillTarget :: String
1992
drbdFillTarget = "c-fill-target"
1993

  
1994
drbdDelayTarget :: String
1995
drbdDelayTarget = "c-delay-target"
1996

  
1997
drbdMaxRate :: String
1998
drbdMaxRate = "c-max-rate"
1999

  
2000
drbdMinRate :: String
2001
drbdMinRate = "c-min-rate"
2002

  
2003
lvStripes :: String
2004
lvStripes = "stripes"
2005

  
2006
rbdAccess :: String
2007
rbdAccess = "access"
2008

  
2009
rbdPool :: String
2010
rbdPool = "pool"
2011

  
2012
diskDtTypes :: Map String VType
2013
diskDtTypes =
2014
  Map.fromList [(drbdResyncRate, VTypeInt),
2015
                (drbdDataStripes, VTypeInt),
2016
                (drbdMetaStripes, VTypeInt),
2017
                (drbdDiskBarriers, VTypeString),
2018
                (drbdMetaBarriers, VTypeBool),
2019
                (drbdDefaultMetavg, VTypeString),
2020
                (drbdDiskCustom, VTypeString),
2021
                (drbdNetCustom, VTypeString),
2022
                (drbdProtocol, VTypeString),
2023
                (drbdDynamicResync, VTypeBool),
2024
                (drbdPlanAhead, VTypeInt),
2025
                (drbdFillTarget, VTypeInt),
2026
                (drbdDelayTarget, VTypeInt),
2027
                (drbdMaxRate, VTypeInt),
2028
                (drbdMinRate, VTypeInt),
2029
                (lvStripes, VTypeInt),
2030
                (rbdAccess, VTypeString),
2031
                (rbdPool, VTypeString)]
2032

  
2033
diskDtParameters :: FrozenSet String
2034
diskDtParameters = ConstantUtils.mkSet (Map.keys diskDtTypes)
2035

  
2036
-- * Dynamic disk parameters
2037

  
2038
ddpLocalIp :: String
2039
ddpLocalIp = "local-ip"
2040

  
2041
ddpRemoteIp :: String
2042
ddpRemoteIp = "remote-ip"
2043

  
2044
ddpPort :: String
2045
ddpPort = "port"
2046

  
2047
ddpLocalMinor :: String
2048
ddpLocalMinor = "local-minor"
2049

  
2050
ddpRemoteMinor :: String
2051
ddpRemoteMinor = "remote-minor"
2052

  
1953 2053
-- * OOB supported commands
1954 2054

  
1955 2055
oobPowerOn :: String

Also available in: Unified diff