Synnefo » snf-ganeti » ganeti-local

{-| ConstantUtils contains the helper functions for constants

This module cannot be merged with 'Ganeti.Utils' because it would

create a circular dependency if imported, for example, from

'Ganeti.Constants'.

-}

{-

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

import Data.Set (Set)

import qualified Data.Set as Set (fromList, toList)

import Ganeti.THH (PyValue(..))

import Ganeti.PyValueInstances ()

-- | FrozenSet wraps a Haskell 'Set'

--

-- See 'PyValue' instance for 'FrozenSet'.

newtype FrozenSet a = FrozenSet { unFrozenSet :: Set a }

  deriving (Eq, Show)

-- | Converts a Haskell 'Set' into a Python 'frozenset'

--

-- This instance was supposed to be for 'Set' instead of 'FrozenSet'.

-- However, 'ghc-6.12.1' seems to be crashing with 'segmentation

-- fault' due to the presence of more than one instance of 'Set',

-- namely, this one and the one in 'Ganeti.OpCodes'.  For this reason,

-- we wrap 'Set' into 'FrozenSet'.

instance PyValue a => PyValue (FrozenSet a) where

  showValue s = "frozenset(" ++ showValue (Set.toList (unFrozenSet s)) ++ ")"

mkSet :: Ord a => [a] -> FrozenSet a

mkSet = FrozenSet . Set.fromList

-- | 'Protocol' represents the protocols used by the daemons

data Protocol = Tcp | Udp

  deriving (Show)

-- | 'PyValue' instance of 'Protocol'

--

-- This instance is used by the Haskell to Python constants

instance PyValue Protocol where

  showValue Tcp = "\"tcp\""

  showValue Udp = "\"udp\""

-- | Failure exit code

--

-- These are defined here and not in 'Ganeti.HsConstants' together with

-- the other exit codes in order to avoid a circular dependency

-- between 'Ganeti.HsConstants' and 'Ganeti.Runtime'

exitFailure :: Int

exitFailure = 1

-- | Console device

--

-- This is defined here and not in 'Ganeti.HsConstants' order to avoid

-- a circular dependency between 'Ganeti.HsConstants' and

-- 'Ganeti.Logging'

devConsole :: String

devConsole = "/dev/console"

-- | Random uuid generator

--

-- This is defined here and not in 'Ganeti.HsConstants' order to avoid

-- a circular dependendy between 'Ganeti.HsConstants' and

-- 'Ganeti.Types'

randomUuidFile :: String

randomUuidFile = "/proc/sys/kernel/random/uuid"

-- * Priority levels

--

-- This is defined here and not in 'Ganeti.Types' in order to avoid a

-- GHC stage restriction and because there is no suitable 'declareADT'

-- variant that handles integer values directly.

priorityLow :: Int

priorityLow = 10

priorityNormal :: Int

priorityNormal = 0

priorityHigh :: Int

priorityHigh = -10

-- | Calculates int version number from major, minor and revision

-- numbers.

buildVersion :: Int -> Int -> Int -> Int

buildVersion major minor revision =

  1000000 * major + 10000 * minor + 1 * revision

-- | Confd protocol version

--

-- This is defined here in order to avoid a circular dependency

-- between 'Ganeti.Confd.Types' and 'Ganeti.HsConstants'.

confdProtocolVersion :: Int

confdProtocolVersion = 1

-- * Confd request query fields.

--

-- These are defined here and not in 'Ganeti.Types' due to GHC stage

-- restrictions concerning Template Haskell.  They are also not

-- defined in 'Ganeti.HsConstants' in order to avoid a circular

-- dependency between that module and 'Ganeti.Types'.

confdReqqLink :: String

confdReqqLink = "0"

confdReqqIp :: String

confdReqqIp = "1"

confdReqqIplist :: String

confdReqqIplist = "2"

confdReqqFields :: String

confdReqqFields = "3"