Synnefo » snf-ganeti

exportFields :: FieldList Node Runtime

exportFields =

  [ (FieldDefinition "node" "Node" QFTText "Node name",

  , (FieldDefinition "export" "Export" QFTText "Export name",

     FieldRuntime (curry fst), QffNormal)

  ]

{-

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

-- | Processes a field value given a QffMode.

qffField :: QffMode -> JSValue -> ErrorResult JSValue

qffField QffNormal    v = Ok v

qffField QffTimestamp v =

  case v of

    JSArray [secs@(JSRational _ _), JSRational _ _] -> return secs

           -> Maybe b

           -> a

           -> (FieldGetter a b, QffMode)

           -> ErrorResult Bool

wrapGetter cfg b a (getter, qff) faction =

  case tryGetter cfg b a getter of

    Nothing -> Ok True -- runtime missing, accepting the value

    Just v ->

      case v of

        ResultEntry RSNormal Nothing ->

          Bad $ ProgrammerError

                "Internal error: Getter returned RSNormal/Nothing"

        _ -> Ok True -- filter has no data to work, accepting it

-- | Helper to evaluate a filter getter (and the value it generates) in

-- a boolean context.

trueFilter :: JSValue -> ErrorResult Bool

-- and for them to be used in multiple contexts.

type Comparator = (Eq a, Ord a) => a -> a -> Bool

-- | Helper to evaluate a filder getter (and the value it generates)

-- in a boolean context. Note the order of arguments is reversed from

-- the filter definitions (due to the call chain), make sure to

evaluateFilter c mb a (NotFilter flt)  =

  not <$> evaluateFilter c mb a flt

evaluateFilter c mb a (TrueFilter getter)  =

evaluateFilter c mb a (EQFilter getter val) =

evaluateFilter c mb a (LTFilter getter val) =

evaluateFilter c mb a (LEFilter getter val) =

evaluateFilter c mb a (GTFilter getter val) =

evaluateFilter c mb a (GEFilter getter val) =

evaluateFilter c mb a (RegexpFilter getter re) =

evaluateFilter c mb a (ContainsFilter getter val) =

-- | Runs a getter with potentially missing runtime context.

tryGetter :: ConfigData -> Maybe b -> a -> FieldGetter a b -> Maybe ResultEntry

       "Whether node can become a master candidate",

     FieldSimple (rsNormal . nodeMasterCapable), QffNormal)

  , (FieldDefinition "name" "Node" QFTText "Node name",

  , (FieldDefinition "offline" "Offline" QFTBool

       "Whether node is marked offline",

     FieldSimple (rsNormal . nodeOffline), QffNormal)

{-

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

-- don't use OR-able values.

data QffMode = QffNormal     -- ^ Value is used as-is in filters

             | QffTimestamp  -- ^ Value is a timestamp tuple, convert to float

               deriving (Show, Eq)

{-# OPTIONS_GHC -fno-warn-orphans #-}

{-| Unittests for ganeti-htools.

import Data.List

import qualified Data.Map as Map

import Data.Maybe

import Text.JSON (JSValue(..), showJSON)

import Test.Ganeti.TestHelper

import Ganeti.BasicTypes

import Ganeti.Errors

import Ganeti.Query.Filter

import qualified Ganeti.Query.Group as Group

import Ganeti.Query.Language

import qualified Ganeti.Query.Node as Node

import Ganeti.Query.Query

import qualified Ganeti.Query.Job as Job

{-# ANN module "HLint: ignore Use camelCase" #-}

    (sortBy field_sort . map (\(f, _, _) -> f) $ Map.elems Node.fieldsMap)

    (sortBy field_sort fdefs)

-- ** Group queries

prop_queryGroup_noUnknown :: Property

  [ 'prop_queryNode_noUnknown

  , 'prop_queryNode_Unknown

  , 'prop_queryNode_types

  , 'case_queryNode_allfields

  , 'prop_queryGroup_noUnknown

  , 'prop_queryGroup_Unknown