Revision 13ef1fa5 src/Ganeti/Query/Server.hs
b/src/Ganeti/Query/Server.hs | ||
---|---|---|
69 | 69 |
handleClassicQuery _ _ _ _ True = |
70 | 70 |
return . Bad $ OpPrereqError "Sync queries are not allowed" ECodeInval |
71 | 71 |
handleClassicQuery cfg qkind names fields _ = do |
72 |
let flt = makeSimpleFilter (nameField qkind) names |
|
72 |
let simpleNameFilter field = makeSimpleFilter (field qkind) names |
|
73 |
flt = Qlang.OrFilter $ map simpleNameFilter [nameField, uuidField] |
|
73 | 74 |
qr <- query cfg True (Qlang.Query qkind fields flt) |
74 | 75 |
return $ showJSON <$> (qr >>= queryCompat) |
75 | 76 |
|
Also available in: Unified diff