Synnefo » snf-ganeti

# extra arguments

./htest/hspace unexpected-argument

>>>2

>>>=1

./htest/hbal unexpected-argument

>>>2

>>>=1

./htest/hinfo unexpected-argument

>>>2

>>>=1

./htest/hcheck unexpected-argument

>>>2

>>>=1

      exInsts = optExInst opts

  exitWhen (length allSet > 1) "Only one of the rapi, luxi, and data\

  util_contents <- maybe (return "") readFile (optDynuFile opts)

  util_data <- exitIfBad "can't parse utilisation data" .

import Control.Monad

import Text.JSON (JSObject, JSValue(JSArray),

                  makeObj, encodeStrict, decodeStrict, fromJSObject, showJSON)

import Ganeti.BasicTypes

import qualified Ganeti.HTools.Cluster as Cluster

import Ganeti.HTools.Loader

import Ganeti.HTools.Types

import Ganeti.JSON

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

                  "-" -> getContents

                  _   -> readFile fp

  case parseData input_data of

    Ok (fix_msgs, rq) -> maybeShowWarnings fix_msgs >> return rq

-- | Main iallocator pipeline.

import Control.Monad

import Data.Maybe (fromMaybe, isJust)

import System.IO

import qualified Ganeti.HTools.Cluster as Cluster

import Ganeti.HTools.IAlloc

import Ganeti.HTools.Loader (Request(..), ClusterData(..))

import Ganeti.HTools.ExtLoader (maybeSaveData, loadExternalData)

-- | Options list and functions.

options :: [OptType]

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

wrapReadRequest opts args = do

  r1 <- readRequest (head args)

  if isJust (optDataFile opts) ||  (not . null . optNodeSim) opts

    hPutStrLn stderr "Found multiple node groups:"

    mapM_ (hPutStrLn stderr . ("  " ++) . Group.name .

           flip Container.find gl . fst) ngroups

  case optGroup opts of

    Nothing -> do

        hPutStrLn stderr $ "Node group " ++ g ++

          " not found. Node group list is:"

        mapM_ (hPutStrLn stderr . ("  " ++) . Group.name ) (Container.elems gl)

      Just grp ->

          case lookup (Group.idx grp) ngroups of

            Nothing ->

-- | Main function.

main :: Options -> [String] -> IO ()

main opts args = do

  let verbose = optVerbose opts

      shownodes = optShowNodes opts

import Control.Monad

import Data.List (transpose)

import System.Exit

import Text.Printf (printf)

import qualified Ganeti.HTools.Container as Container

import Ganeti.HTools.ExtLoader

import Ganeti.HTools.Loader

import Ganeti.HTools.Types

-- | Options list and functions.

options :: [OptType]

-- | Main function.

main :: Options -> [String] -> IO ()

main opts args = do

  let verbose = optVerbose opts

      machineread = optMachineReadable opts

import Control.Monad

import Data.List

import System.IO

import Text.Printf (printf)

-- | Main function.

main :: Options -> [String] -> IO ()

main opts args = do

  let verbose = optVerbose opts

      shownodes = optShowNodes opts

-- | Main function.

main :: Options -> [String] -> IO ()

main opts args = do

  let verbose = optVerbose opts

      machine_r = optMachineReadable opts

-- | Unwraps a 'Result', exiting the program if it is a 'Bad' value,

-- otherwise returning the actual contained value.

exitIfBad :: String -> Result a -> IO a

exitIfBad _ (Ok v) = return v

-- | Exits immediately with an error message.

exitErr :: String -> IO a

exitErr errmsg = do

  exitWith (ExitFailure 1)

-- | Exits with an error message if the given boolean condition if true.

import Data.Char (toLower)

import Prelude hiding (catch)

import System.Environment

import System.IO

import System.IO.Error (isDoesNotExistError)

  hPutStrLn stderr "This program must be installed under one of the following\

                   \ names:"

  mapM_ (hPutStrLn stderr . ("  - " ++) . fst) personalities

main :: IO ()

main = do

usage :: IO ()

usage = do

  prog <- getProgName

main :: IO ()

main = do