Synnefo » snf-ganeti » ganeti-local

import System.Info (arch)

import qualified Ganeti.Constants as C

import qualified Ganeti.Path as Path

import Ganeti.Daemon

import Ganeti.Objects

                   -> [String]        -- ^ Requested names (empty means all)

                   -> [String]        -- ^ Requested fields

                   -> Bool            -- ^ Whether to do sync queries or not

handleClassicQuery cfg qkind names fields _ = do

  let flt = makeSimpleFilter (nameField qkind) names

  qr <- query cfg True (Qlang.Query qkind fields flt)

  return $ showJSON <$> (qr >>= queryCompat)

-- | Minimal wrapper to handle the missing config case.

handleCallWrapper (Bad msg) _ =

handleCallWrapper (Ok config) op = handleCall config op

-- | Actual luxi operation handler.

handleCall cdata QueryClusterInfo =

  let cluster = configCluster cdata

      hypervisors = clusterEnabledHypervisors cluster

  handleClassicQuery cfg Qlang.QRGroup names fields lock

handleCall _ op =

-- | Given a decoded luxi request, executes it and sends the luxi

  (!status, !rval) <-

    case call_result of

      Bad err -> do

      Ok result -> do

        logDebug $ "Result " ++ show (pp_value result)

        return (True, result)