Revision 8397ffde src/Ganeti/HsConstants.hs
b/src/Ganeti/HsConstants.hs | ||
---|---|---|
45 | 45 |
import qualified Ganeti.ConstantUtils as ConstantUtils |
46 | 46 |
import Ganeti.Runtime (GanetiDaemon(..), MiscGroup(..), GanetiGroup(..), |
47 | 47 |
ExtraLogReason(..)) |
48 |
import Ganeti.HTools.Types (AutoRepairResult(..), AutoRepairType(..)) |
|
49 |
import qualified Ganeti.HTools.Types as Types |
|
48 | 50 |
import Ganeti.Logging (SyslogUsage(..)) |
49 | 51 |
import qualified Ganeti.Logging as Logging (syslogUsageToRaw) |
50 | 52 |
import qualified Ganeti.Runtime as Runtime |
... | ... | |
664 | 666 |
rpcConnectTimeout :: Int |
665 | 667 |
rpcConnectTimeout = 5 |
666 | 668 |
|
669 |
|
|
670 |
-- | Instance specs |
|
671 |
-- |
|
672 |
-- FIXME: these should be associated with 'Ganeti.HTools.Types.ISpec' |
|
673 |
|
|
674 |
ispecMemSize :: String |
|
675 |
ispecMemSize = ConstantUtils.ispecMemSize |
|
676 |
|
|
677 |
ispecCpuCount :: String |
|
678 |
ispecCpuCount = ConstantUtils.ispecCpuCount |
|
679 |
|
|
680 |
ispecDiskCount :: String |
|
681 |
ispecDiskCount = ConstantUtils.ispecDiskCount |
|
682 |
|
|
683 |
ispecDiskSize :: String |
|
684 |
ispecDiskSize = ConstantUtils.ispecDiskSize |
|
685 |
|
|
686 |
ispecNicCount :: String |
|
687 |
ispecNicCount = ConstantUtils.ispecNicCount |
|
688 |
|
|
689 |
ispecSpindleUse :: String |
|
690 |
ispecSpindleUse = ConstantUtils.ispecSpindleUse |
|
691 |
|
|
692 |
ispecsParameterTypes :: Map String VType |
|
693 |
ispecsParameterTypes = |
|
694 |
Map.fromList |
|
695 |
[(ConstantUtils.ispecDiskSize, VTypeInt), |
|
696 |
(ConstantUtils.ispecCpuCount, VTypeInt), |
|
697 |
(ConstantUtils.ispecSpindleUse, VTypeInt), |
|
698 |
(ConstantUtils.ispecMemSize, VTypeInt), |
|
699 |
(ConstantUtils.ispecNicCount, VTypeInt), |
|
700 |
(ConstantUtils.ispecDiskCount, VTypeInt)] |
|
701 |
|
|
702 |
ispecsParameters :: FrozenSet String |
|
703 |
ispecsParameters = |
|
704 |
ConstantUtils.mkSet [ConstantUtils.ispecCpuCount, |
|
705 |
ConstantUtils.ispecDiskCount, |
|
706 |
ConstantUtils.ispecDiskSize, |
|
707 |
ConstantUtils.ispecMemSize, |
|
708 |
ConstantUtils.ispecNicCount, |
|
709 |
ConstantUtils.ispecSpindleUse] |
|
710 |
|
|
711 |
ispecsMinmax :: String |
|
712 |
ispecsMinmax = ConstantUtils.ispecsMinmax |
|
713 |
|
|
714 |
ispecsMax :: String |
|
715 |
ispecsMax = "max" |
|
716 |
|
|
717 |
ispecsMin :: String |
|
718 |
ispecsMin = "min" |
|
719 |
|
|
720 |
ispecsStd :: String |
|
721 |
ispecsStd = ConstantUtils.ispecsStd |
|
722 |
|
|
723 |
ipolicyDts :: String |
|
724 |
ipolicyDts = ConstantUtils.ipolicyDts |
|
725 |
|
|
726 |
ipolicyVcpuRatio :: String |
|
727 |
ipolicyVcpuRatio = ConstantUtils.ipolicyVcpuRatio |
|
728 |
|
|
729 |
ipolicySpindleRatio :: String |
|
730 |
ipolicySpindleRatio = ConstantUtils.ipolicySpindleRatio |
|
731 |
|
|
732 |
ispecsMinmaxKeys :: FrozenSet String |
|
733 |
ispecsMinmaxKeys = ConstantUtils.mkSet [ispecsMax, ispecsMin] |
|
734 |
|
|
735 |
ipolicyParameters :: FrozenSet String |
|
736 |
ipolicyParameters = |
|
737 |
ConstantUtils.mkSet [ConstantUtils.ipolicyVcpuRatio, |
|
738 |
ConstantUtils.ipolicySpindleRatio] |
|
739 |
|
|
740 |
ipolicyAllKeys :: FrozenSet String |
|
741 |
ipolicyAllKeys = |
|
742 |
ConstantUtils.union ipolicyParameters $ |
|
743 |
ConstantUtils.mkSet [ConstantUtils.ipolicyDts, |
|
744 |
ConstantUtils.ispecsMinmax, |
|
745 |
ispecsStd] |
|
746 |
|
|
667 | 747 |
-- | Node parameter names |
668 | 748 |
|
669 | 749 |
ndExclusiveStorage :: String |
Also available in: Unified diff