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