Revision 946f1fb3

b/src/Ganeti/Query/Server.hs
56 56 
import qualified Ganeti.Query.Language as Qlang
57 57 
import qualified Ganeti.Query.Cluster as QCluster
58 58 
import Ganeti.Path (queueDir, jobQueueLockFile)
59 
import Ganeti.Rpc
59 60 
import Ganeti.Query.Query
60 61 
import Ganeti.Query.Filter (makeSimpleFilter)
61 62 
import Ganeti.Types
......
268 269 
      return . Ok $ showJSON answer
269 270 
    _ -> liftM (Ok . showJSON) compute_fn
270 271 

  		





  
  272
  
    
handleCall _ _ cfg (SetWatcherPause time) = do


  		





  
  273
  
    
  let mcs = Config.getMasterCandidates cfg


  		





  
  274
  
    
      masters = genericResult (const []) return


  		





  
  275
  
    
                  . Config.getNode cfg . clusterMasterNode


  		





  
  276
  
    
                  $ configCluster cfg


  		





  
  277
  
    
  _ <- executeRpcCall (masters ++ mcs) $ RpcCallSetWatcherPause time


  		





  
  278
  
    
  return . Ok . maybe JSNull showJSON $ time


  		





  
  279
  
    

  		





  271
  280
  
    
handleCall _ _ _ op =


  		





  272
  281
  
    
  return . Bad $


  		





  273
  282
  
    
    GenericError ("Luxi call '" ++ strOfOp op ++ "' not implemented")


  		












Also available in:
  Unified diff