Revision 518023a9 htools/Ganeti/Queryd.hs

b/htools/Ganeti/Queryd.hs
131 131
  result <- query cfg (Qlang.Query qkind qfields qfilter)
132 132
  return $ J.showJSON <$> result
133 133

  
134
handleCall _ (QueryFields qkind qfields) = do
135
  let result = queryFields (Qlang.QueryFields qkind qfields)
136
  return $ J.showJSON <$> result
137

  
134 138
handleCall _ op =
135 139
  return . Bad $ "Luxi call '" ++ strOfOp op ++ "' not implemented"
136 140

  

Also available in: Unified diff