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