Synnefo » snf-ganeti

{-| HsConstants contains the Haskell constants

This is a transitional module complementary to 'Ganeti.Constants'.  It

is intended to contain the Haskell constants that are meant to be

generated in Python.

Do not write any definitions in this file other than constants.  Do

not even write helper functions.  The definitions in this module are

automatically stripped to build the Makefile.am target

'ListConstants.hs'.  If there are helper functions in this module,

they will also be dragged and it will cause compilation to fail.

Therefore, all helper functions should go to a separate module and

imported.

-}

{-

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

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

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.HsConstants where

import Data.Map (Map)

import qualified Data.Map as Map (fromList)

import AutoConf

import Ganeti.ConstantUtils

-- * Admin states

adminstDown :: String

adminstDown = "down"

adminstOffline :: String

adminstOffline = "offline"

adminstUp :: String

adminstUp = "up"

adminstAll :: FrozenSet String

adminstAll = mkSet [adminstDown, adminstOffline, adminstUp]

-- * User separation

daemonsGroup :: String

daemonsGroup = AutoConf.daemonsGroup

adminGroup :: String

adminGroup = AutoConf.adminGroup

masterdUser :: String

masterdUser = AutoConf.masterdUser

masterdGroup :: String

masterdGroup = AutoConf.masterdGroup

rapiUser :: String

rapiUser = AutoConf.rapiUser

rapiGroup :: String

rapiGroup = AutoConf.rapiGroup

confdUser :: String

confdUser = AutoConf.confdUser

confdGroup :: String

confdGroup = AutoConf.confdGroup

luxidUser :: String

luxidUser = AutoConf.luxidUser

luxidGroup :: String

luxidGroup = AutoConf.luxidGroup

nodedUser :: String

nodedUser = AutoConf.nodedUser

nodedGroup :: String

nodedGroup = AutoConf.nodedGroup

mondUser :: String

mondUser = AutoConf.mondUser

mondGroup :: String

mondGroup = AutoConf.mondGroup

sshLoginUser :: String

sshLoginUser = AutoConf.sshLoginUser

sshConsoleUser :: String

sshConsoleUser = AutoConf.sshConsoleUser

-- * SSH constants

ssh :: String

ssh = "ssh"

scp :: String

scp = "scp"

-- * Daemons

confd :: String

confd = "ganeti-confd"

masterd :: String

masterd = "ganeti-masterd"

mond :: String

mond = "ganeti-mond"

noded :: String

noded = "ganeti-noded"

luxid :: String

luxid = "ganeti-luxid"

rapi :: String

rapi = "ganeti-rapi"

daemons :: FrozenSet String

daemons =

  mkSet [confd,

         luxid,

         masterd,

         mond,

         noded,

         rapi]

defaultConfdPort :: Int

defaultConfdPort = 1814

defaultMondPort :: Int

defaultMondPort = 1815

defaultNodedPort :: Int

defaultNodedPort = 1811

defaultRapiPort :: Int

defaultRapiPort = 5080

daemonsPorts :: Map String (Protocol, Int)

daemonsPorts =

  Map.fromList [(confd, (Udp, defaultConfdPort)),

                (mond, (Tcp, defaultMondPort)),

                (noded, (Tcp, defaultNodedPort)),

                (rapi, (Tcp, defaultRapiPort)),

                (ssh, (Tcp, 22))]

-- * Possible values for NodeGroup.alloc_policy

allocPolicyLastResort :: String

allocPolicyLastResort = "last_resort"

allocPolicyPreferred :: String

allocPolicyPreferred = "preferred"

allocPolicyUnallocable :: String

allocPolicyUnallocable = "unallocable"

validAllocPolicies :: [String]

validAllocPolicies =

  [allocPolicyLastResort,

   allocPolicyPreferred,

   allocPolicyUnallocable]

-- | Temporary external/shared storage parameters

blockdevDriverManual :: String

blockdevDriverManual = "manual"

-- * Auto-repair tag prefixes

autoRepairTagPrefix :: String

autoRepairTagPrefix = "ganeti:watcher:autorepair:"

autoRepairTagEnabled :: String

autoRepairTagEnabled = autoRepairTagPrefix

autoRepairTagPending :: String

autoRepairTagPending = autoRepairTagPrefix ++ "pending:"

autoRepairTagResult :: String

autoRepairTagResult = autoRepairTagPrefix ++ "result:"

autoRepairTagSuspended :: String

autoRepairTagSuspended = autoRepairTagPrefix ++ "suspend:"

-- * Auto-repair levels

autoRepairFailover :: String

autoRepairFailover = "failover"

autoRepairFixStorage :: String

autoRepairFixStorage = "fix-storage"

autoRepairMigrate :: String

autoRepairMigrate = "migrate"

autoRepairReinstall :: String

autoRepairReinstall = "reinstall"

autoRepairAllTypes :: FrozenSet String

autoRepairAllTypes =

  mkSet [autoRepairFailover,

         autoRepairFixStorage,

         autoRepairMigrate,

         autoRepairReinstall]

-- * Auto-repair results

autoRepairEnoperm :: String

autoRepairEnoperm = "enoperm"

autoRepairFailure :: String

autoRepairFailure = "failure"

autoRepairSuccess :: String

autoRepairSuccess = "success"

autoRepairAllResults :: FrozenSet String

autoRepairAllResults =

  mkSet [autoRepairEnoperm, autoRepairFailure, autoRepairSuccess]

-- | The version identifier for builtin data collectors

builtinDataCollectorVersion :: String

builtinDataCollectorVersion = "B"