Synnefo » snf-ganeti

{-| Implementation of the Ganeti Query2 node group queries.

 -}

{-

Copyright (C) 2012 Google Inc.

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

the Free Software Foundation; either version 2 of the License, or

(at your option) any later version.

This program is distributed in the hope that it will be useful, but

WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

General Public License for more details.

You should have received a copy of the GNU General Public License

along with this program; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA

02110-1301, USA.

-}

module Ganeti.Query.Group

  ( GroupRuntime(..)

  , groupFieldsMap

  ) where

import qualified Data.Map as Map

import Ganeti.Config

import Ganeti.Objects

import Ganeti.Query.Language

import Ganeti.Query.Common

import Ganeti.Query.Types

-- | There is no runtime.

data GroupRuntime = GroupRuntime

groupFields :: FieldList NodeGroup GroupRuntime

groupFields =

  [ (FieldDefinition "alloc_policy" "AllocPolicy" QFTText

       "Allocation policy for group",

     FieldSimple (rsNormal . groupAllocPolicy))

  , (FieldDefinition "custom_diskparams" "CustomDiskParameters" QFTOther

       "Custom disk parameters",

     FieldSimple (rsNormal . groupDiskparams))

  , (FieldDefinition "custom_ipolicy" "CustomInstancePolicy" QFTOther

       "Custom instance policy limitations",

     FieldSimple (rsNormal . groupIpolicy))

  , (FieldDefinition "custom_ndparams" "CustomNDParams" QFTOther

       "Custom node parameters",

     FieldSimple (rsNormal . groupNdparams))

  , (FieldDefinition "diskparams" "DiskParameters" QFTOther

       "Disk parameters (merged)",

     FieldConfig (\cfg -> rsNormal . getGroupDiskParams cfg))

  , (FieldDefinition "ipolicy" "InstancePolicy" QFTOther

       "Instance policy limitations (merged)",

     FieldConfig (\cfg ng -> rsNormal (getGroupIpolicy cfg ng)))

  , (FieldDefinition "name" "Group" QFTText "Group name",

     FieldSimple (rsNormal . groupName))

  , (FieldDefinition "ndparams" "NDParams" QFTOther "Node parameters",

     FieldConfig (\cfg ng -> rsNormal (getGroupNdParams cfg ng)))

  , (FieldDefinition "node_cnt" "Nodes" QFTNumber "Number of nodes",

     FieldConfig (\cfg -> rsNormal . length . getGroupNodes cfg . groupName))

  , (FieldDefinition "node_list" "NodeList" QFTOther "List of nodes",

     FieldConfig (\cfg -> rsNormal . map nodeName .

                          getGroupNodes cfg . groupName))

  , (FieldDefinition "pinst_cnt" "Instances" QFTNumber

       "Number of primary instances",

     FieldConfig

       (\cfg -> rsNormal . length . fst . getGroupInstances cfg . groupName))

  , (FieldDefinition "pinst_list" "InstanceList" QFTOther

       "List of primary instances",

     FieldConfig (\cfg -> rsNormal . map instName . fst .

                          getGroupInstances cfg . groupName))

  ] ++

  map buildNdParamField allNDParamFields ++

  timeStampFields ++

  uuidFields "Group" ++

  serialFields "Group" ++

  tagsFields

-- | The group fields map.

groupFieldsMap :: FieldMap NodeGroup GroupRuntime

groupFieldsMap = Map.fromList $ map (\v -> (fdefName (fst v), v)) groupFields