Revision 5b11f8db htools/Ganeti/HTools/Text.hs
b/htools/Ganeti/HTools/Text.hs | ||
---|---|---|
146 | 146 |
serializeAllIPolicies :: IPolicy -> Group.List -> String |
147 | 147 |
serializeAllIPolicies cpol gl = |
148 | 148 |
let groups = Container.elems gl |
149 |
allpolicies = [("", cpol)] ++
|
|
149 |
allpolicies = ("", cpol) :
|
|
150 | 150 |
map (\g -> (Group.name g, Group.iPolicy g)) groups |
151 | 151 |
strings = map (uncurry serializeIPolicy) allpolicies |
152 | 152 |
in unlines strings |
... | ... | |
259 | 259 |
xdts <- mapM diskTemplateFromRaw $ commaSplit dtemplates |
260 | 260 |
xvcpu_ratio <- tryRead (owner ++ "/vcpu_ratio") vcpu_ratio |
261 | 261 |
xspindle_ratio <- tryRead (owner ++ "/spindle_ratio") spindle_ratio |
262 |
return $ (owner, IPolicy xstdspec xminspec xmaxspec xdts
|
|
263 |
xvcpu_ratio xspindle_ratio)
|
|
262 |
return (owner,
|
|
263 |
IPolicy xstdspec xminspec xmaxspec xdts xvcpu_ratio xspindle_ratio)
|
|
264 | 264 |
loadIPolicy s = fail $ "Invalid ipolicy data: '" ++ show s ++ "'" |
265 | 265 |
|
266 | 266 |
loadOnePolicy :: (IPolicy, Group.List) -> String |
Also available in: Unified diff