Revision c8b199db src/Ganeti/HTools/Backend/IAlloc.hs
b/src/Ganeti/HTools/Backend/IAlloc.hs | ||
---|---|---|
133 | 133 |
let extract x = tryFromObj ("invalid data for group '" ++ u ++ "'") a x |
134 | 134 |
name <- extract "name" |
135 | 135 |
apol <- extract "alloc_policy" |
136 |
nets <- extract "networks" |
|
136 | 137 |
ipol <- extract "ipolicy" |
137 | 138 |
tags <- extract "tags" |
138 |
return (u, Group.create name u apol ipol tags) |
|
139 |
return (u, Group.create name u apol nets ipol tags)
|
|
139 | 140 |
|
140 | 141 |
-- | Top-level parser. |
141 | 142 |
-- |
Also available in: Unified diff