Revision c8b199db src/Ganeti/HTools/Backend/Rapi.hs
b/src/Ganeti/HTools/Backend/Rapi.hs | ||
---|---|---|
179 | 179 |
apol <- extract "alloc_policy" |
180 | 180 |
ipol <- extract "ipolicy" |
181 | 181 |
tags <- extract "tags" |
182 |
return (uuid, Group.create name uuid apol ipol tags) |
|
182 |
-- TODO: parse networks to which this group is connected |
|
183 |
return (uuid, Group.create name uuid apol [] ipol tags) |
|
183 | 184 |
|
184 | 185 |
-- | Parse cluster data from the info resource. |
185 | 186 |
parseCluster :: JSObject JSValue -> Result ([String], IPolicy, String) |
Also available in: Unified diff