Revision 037762a9 htools/Ganeti/Query/Server.hs
| b/htools/Ganeti/Query/Server.hs | ||
|---|---|---|
| 62 | 62 |
-- | Helper for classic queries. |
| 63 | 63 |
handleClassicQuery :: ConfigData -- ^ Cluster config |
| 64 | 64 |
-> Qlang.ItemType -- ^ Query type |
| 65 |
-> [String] -- ^ Requested names (empty means all) |
|
| 65 |
-> [Either String Integer] -- ^ Requested names |
|
| 66 |
-- (empty means all) |
|
| 66 | 67 |
-> [String] -- ^ Requested fields |
| 67 | 68 |
-> Bool -- ^ Whether to do sync queries or not |
| 68 | 69 |
-> IO (GenericResult GanetiException JSValue) |
| ... | ... | |
| 155 | 156 |
return $ J.showJSON <$> result |
| 156 | 157 |
|
| 157 | 158 |
handleCall cfg (QueryNodes names fields lock) = |
| 158 |
handleClassicQuery cfg (Qlang.ItemTypeOpCode Qlang.QRNode) names fields lock |
|
| 159 |
handleClassicQuery cfg (Qlang.ItemTypeOpCode Qlang.QRNode) |
|
| 160 |
(map Left names) fields lock |
|
| 159 | 161 |
|
| 160 | 162 |
handleCall cfg (QueryGroups names fields lock) = |
| 161 |
handleClassicQuery cfg (Qlang.ItemTypeOpCode Qlang.QRGroup) names fields lock |
|
| 163 |
handleClassicQuery cfg (Qlang.ItemTypeOpCode Qlang.QRGroup) |
|
| 164 |
(map Left names) fields lock |
|
| 162 | 165 |
|
| 163 | 166 |
handleCall _ op = |
| 164 | 167 |
return . Bad $ |
Also available in: Unified diff