Synnefo » snf-ganeti » ganeti-local

    , lookupGroup

    , commonSuffix

    , RelocMode(..)

    , RqType(..)

    , Request(..)

    , ClusterData(..)

                                     -- secondary node

    | Evacuate [Ndx]                 -- ^ Evacuate nodes

    | MultiReloc [Idx] RelocMode     -- ^ Multi-relocate mode

    deriving (Show, Read)

-- | A complete request, as received from Ganeti.

    , OpResult(..)

    , connTimeout

    , queryTimeout

    ) where

import qualified Data.Map as M

              name = nameOf e

    -- | Updates the index of the element

    setIdx  :: a -> Int -> a

                                    idx reqn exnodes

       Evacuate exnodes -> Cluster.tryMGEvac gl nl il exnodes

       MultiReloc _ _ -> fail "multi-reloc not handled"

-- | Reads the request from the data file(s)

readRequest :: Options -> [String] -> IO Request