Revision 1a0dacf6 src/Ganeti/Confd/Server.hs
b/src/Ganeti/Confd/Server.hs | ||
---|---|---|
186 | 186 |
PlainQuery str -> return str |
187 | 187 |
_ -> fail $ "Invalid query type " ++ show (confdRqQuery req) |
188 | 188 |
node <- gntErrorToResult $ getNode cfg node_name |
189 |
let minors = concatMap (getInstMinorsForNode (nodeName node)) . |
|
189 |
let minors = concatMap (getInstMinorsForNode cfg (nodeName node)) .
|
|
190 | 190 |
M.elems . fromContainer . configInstances $ cfg |
191 | 191 |
encoded = [J.JSArray [J.showJSON a, J.showJSON b, J.showJSON c, |
192 | 192 |
J.showJSON d, J.showJSON e, J.showJSON f] | |
Also available in: Unified diff