Revision f94a9680 htools/Ganeti/Query/Group.hs
b/htools/Ganeti/Query/Group.hs | ||
---|---|---|
43 | 43 |
groupFields = |
44 | 44 |
[ (FieldDefinition "alloc_policy" "AllocPolicy" QFTText |
45 | 45 |
"Allocation policy for group", |
46 |
FieldSimple (rsNormal . groupAllocPolicy)) |
|
46 |
FieldSimple (rsNormal . groupAllocPolicy), QffNormal)
|
|
47 | 47 |
, (FieldDefinition "custom_diskparams" "CustomDiskParameters" QFTOther |
48 | 48 |
"Custom disk parameters", |
49 |
FieldSimple (rsNormal . groupDiskparams)) |
|
49 |
FieldSimple (rsNormal . groupDiskparams), QffNormal)
|
|
50 | 50 |
, (FieldDefinition "custom_ipolicy" "CustomInstancePolicy" QFTOther |
51 | 51 |
"Custom instance policy limitations", |
52 |
FieldSimple (rsNormal . groupIpolicy)) |
|
52 |
FieldSimple (rsNormal . groupIpolicy), QffNormal)
|
|
53 | 53 |
, (FieldDefinition "custom_ndparams" "CustomNDParams" QFTOther |
54 | 54 |
"Custom node parameters", |
55 |
FieldSimple (rsNormal . groupNdparams)) |
|
55 |
FieldSimple (rsNormal . groupNdparams), QffNormal)
|
|
56 | 56 |
, (FieldDefinition "diskparams" "DiskParameters" QFTOther |
57 | 57 |
"Disk parameters (merged)", |
58 |
FieldConfig (\cfg -> rsNormal . getGroupDiskParams cfg)) |
|
58 |
FieldConfig (\cfg -> rsNormal . getGroupDiskParams cfg), QffNormal)
|
|
59 | 59 |
, (FieldDefinition "ipolicy" "InstancePolicy" QFTOther |
60 | 60 |
"Instance policy limitations (merged)", |
61 |
FieldConfig (\cfg ng -> rsNormal (getGroupIpolicy cfg ng))) |
|
61 |
FieldConfig (\cfg ng -> rsNormal (getGroupIpolicy cfg ng)), QffNormal)
|
|
62 | 62 |
, (FieldDefinition "name" "Group" QFTText "Group name", |
63 |
FieldSimple (rsNormal . groupName)) |
|
63 |
FieldSimple (rsNormal . groupName), QffNormal)
|
|
64 | 64 |
, (FieldDefinition "ndparams" "NDParams" QFTOther "Node parameters", |
65 |
FieldConfig (\cfg ng -> rsNormal (getGroupNdParams cfg ng))) |
|
65 |
FieldConfig (\cfg ng -> rsNormal (getGroupNdParams cfg ng)), QffNormal)
|
|
66 | 66 |
, (FieldDefinition "node_cnt" "Nodes" QFTNumber "Number of nodes", |
67 |
FieldConfig (\cfg -> rsNormal . length . getGroupNodes cfg . groupName)) |
|
67 |
FieldConfig (\cfg -> rsNormal . length . getGroupNodes cfg . groupName), |
|
68 |
QffNormal) |
|
68 | 69 |
, (FieldDefinition "node_list" "NodeList" QFTOther "List of nodes", |
69 | 70 |
FieldConfig (\cfg -> rsNormal . map nodeName . |
70 |
getGroupNodes cfg . groupName)) |
|
71 |
getGroupNodes cfg . groupName), QffNormal)
|
|
71 | 72 |
, (FieldDefinition "pinst_cnt" "Instances" QFTNumber |
72 | 73 |
"Number of primary instances", |
73 | 74 |
FieldConfig |
74 |
(\cfg -> rsNormal . length . fst . getGroupInstances cfg . groupName)) |
|
75 |
(\cfg -> rsNormal . length . fst . getGroupInstances cfg . groupName), |
|
76 |
QffNormal) |
|
75 | 77 |
, (FieldDefinition "pinst_list" "InstanceList" QFTOther |
76 | 78 |
"List of primary instances", |
77 | 79 |
FieldConfig (\cfg -> rsNormal . map instName . fst . |
78 |
getGroupInstances cfg . groupName)) |
|
80 |
getGroupInstances cfg . groupName), QffNormal)
|
|
79 | 81 |
] ++ |
80 | 82 |
map buildNdParamField allNDParamFields ++ |
81 | 83 |
timeStampFields ++ |
... | ... | |
85 | 87 |
|
86 | 88 |
-- | The group fields map. |
87 | 89 |
groupFieldsMap :: FieldMap NodeGroup GroupRuntime |
88 |
groupFieldsMap = Map.fromList $ map (\v -> (fdefName (fst v), v)) groupFields |
|
90 |
groupFieldsMap = |
|
91 |
Map.fromList $ map (\v@(f, _, _) -> (fdefName f, v)) groupFields |
Also available in: Unified diff