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