Revision 5b11f8db htools/Ganeti/Luxi.hs

b/htools/Ganeti/Luxi.hs
342 342 
    ReqQueryGroups -> do
343 343 
              (names, fields, locking) <- fromJVal args
344 344 
              return $ QueryGroups names fields locking
345 
    ReqQueryClusterInfo -> do
345 
    ReqQueryClusterInfo ->
346 346 
              return QueryClusterInfo
347 347 
    ReqQuery -> do
348 348 
              (what, fields, qfilter) <- fromJVal args

Also available in: Unified diff