Synnefo » snf-ganeti » ganeti-local

import Ganeti.HTools.CLI

import Ganeti.HTools.Loader

import Ganeti.HTools.ExtLoader (loadExternalData)

import Ganeti.HTools.Types

{-# ANN module "HLint: ignore Eta reduce" #-}

import qualified Ganeti.HTools.Group as Group

import qualified Ganeti.HTools.Node as Node

import qualified Ganeti.HTools.Instance as Instance

{-# ANN module "HLint: ignore Eta reduce" #-}

import qualified Ganeti.HTools.ExtLoader

import qualified Ganeti.HTools.IAlloc as IAlloc

import qualified Ganeti.HTools.Instance as Instance

import qualified Ganeti.HTools.Loader as Loader

import qualified Ganeti.HTools.Luxi

import qualified Ganeti.HTools.Node as Node

-- value.

prop_Utils_fromObjWithDefault def_value random_key =

  -- a missing key will be returned with the default

  -- a found key will be returned as is, not with default

       random_key (def_value+1) == Just def_value

    where _types = def_value :: Integer

import Text.JSON.Types (JSValue(..))

import Text.Printf (printf)

import Ganeti.HTools.Loader

import Ganeti.HTools.Types

import qualified Ganeti.HTools.Group as Group

import qualified Ganeti.HTools.Node as Node

import qualified Ganeti.HTools.Instance as Instance

  , select

  , applyIf

  , commaJoin

  , tryRead

  , formatTable

  , parseUnit

import Debug.Trace

-- * Debug functions

-- | To be used only for debugging, breaks referential integrity.

import System.Timeout

import qualified Network.Socket as S

import Ganeti.HTools.Types

import Ganeti.Constants

  ) where

import Text.JSON (readJSON, showJSON, makeObj, JSON)

import qualified Ganeti.Constants as C

import Ganeti.THH

-- | Replace disks type.

$(declareSADT "ReplaceDisksMode"