Revision 4cbe9bda htools/Ganeti/Queryd.hs

b/htools/Ganeti/Queryd.hs
48 48
import Ganeti.BasicTypes
49 49
import Ganeti.Logging
50 50
import Ganeti.Luxi
51

  
51
import qualified Ganeti.Qlang as Qlang
52
import Ganeti.Query.Query
52 53

  
53 54
-- | A type for functions that can return the configuration when
54 55
-- executed.
......
126 127
               TagInstance -> instTags <$> Config.getInstance cfg name
127 128
  in return (J.showJSON <$> tags)
128 129

  
130
handleCall cfg (Query qkind qfields qfilter) = do
131
  result <- query cfg (Qlang.Query qkind qfields qfilter)
132
  return $ J.showJSON <$> result
133

  
129 134
handleCall _ op =
130 135
  return . Bad $ "Luxi call '" ++ strOfOp op ++ "' not implemented"
131 136

  

Also available in: Unified diff