Revision c8b199db src/Ganeti/HTools/Backend/Luxi.hs
b/src/Ganeti/HTools/Backend/Luxi.hs | ||
---|---|---|
234 | 234 |
xapol <- convert "alloc_policy" apol |
235 | 235 |
xipol <- convert "ipolicy" ipol |
236 | 236 |
xtags <- convert "tags" tags |
237 |
return (xuuid, Group.create xname xuuid xapol xipol xtags) |
|
237 |
-- TODO: parse networks to which this group is connected |
|
238 |
return (xuuid, Group.create xname xuuid xapol [] xipol xtags) |
|
238 | 239 |
|
239 | 240 |
parseGroup v = fail ("Invalid group query result: " ++ show v) |
240 | 241 |
|
Also available in: Unified diff