Revision 36162faf src/Ganeti/Query/Group.hs

b/src/Ganeti/Query/Group.hs
4 4

  
5 5
{-
6 6

  
7
Copyright (C) 2012 Google Inc.
7
Copyright (C) 2012, 2013 Google Inc.
8 8

  
9 9
This program is free software; you can redistribute it and/or modify
10 10
it under the terms of the GNU General Public License as published by
......
24 24
-}
25 25

  
26 26
module Ganeti.Query.Group
27
  ( GroupRuntime(..)
28
  , groupFieldsMap
27
  ( Runtime(..)
28
  , fieldsMap
29 29
  ) where
30 30

  
31 31
import qualified Data.Map as Map
......
37 37
import Ganeti.Query.Types
38 38

  
39 39
-- | There is no runtime.
40
data GroupRuntime = GroupRuntime
40
data Runtime = Runtime
41 41

  
42
groupFields :: FieldList NodeGroup GroupRuntime
42
groupFields :: FieldList NodeGroup Runtime
43 43
groupFields =
44 44
  [ (FieldDefinition "alloc_policy" "AllocPolicy" QFTText
45 45
       "Allocation policy for group",
......
86 86
  tagsFields
87 87

  
88 88
-- | The group fields map.
89
groupFieldsMap :: FieldMap NodeGroup GroupRuntime
90
groupFieldsMap =
89
fieldsMap :: FieldMap NodeGroup Runtime
90
fieldsMap =
91 91
  Map.fromList $ map (\v@(f, _, _) -> (fdefName f, v)) groupFields

Also available in: Unified diff