Revision b172b0ab src/Ganeti/Query/Server.hs

b/src/Ganeti/Query/Server.hs
430 430 
  result <- handleCallWrapper qlock qstat cfg args
431 431 
  return (True, result)
432 432 

  		





  433
  
  
    
luxiHandler :: LuxiConfig -> U.Handler LuxiOp JSValue


  		





  
  433
  
    
luxiHandler :: LuxiConfig -> U.Handler LuxiOp IO JSValue


  		





  434
  434
  
    
luxiHandler cfg = U.Handler { U.hParse         = decodeLuxiCall


  		





  435
  435
  
    
                            , U.hInputLogShort = strOfOp


  		





  436
  436
  
    
                            , U.hInputLogLong  = show


  		












Also available in:
  Unified diff