Revision edcad688 src/Ganeti/Query/Server.hs

b/src/Ganeti/Query/Server.hs
253 253 
                        then showJSON (True, fromJobId jid)
254 254 
                        else showJSON (False, genericResult id (const "") res))
255 255 
              $ annotated_results
256 
{-# ANN handleCall "HLint: ignore Too strict if" #-}
257 256 

  		





  258
  257
  
    
handleCall _ _ op =


  		





  259
  258
  
    
  return . Bad $


  		





  260
  259
  
    
    GenericError ("Luxi call '" ++ strOfOp op ++ "' not implemented")


  		





  261
  260
  
    

  		





  
  261
  
    
{-# ANN handleCall "HLint: ignore Too strict if" #-}


  		





  
  262
  
    

  		





  262
  263
  
    
-- | Given a decoded luxi request, executes it and sends the luxi


  		





  263
  264
  
    
-- response back to the client.


  		





  264
  265
  
    
handleClientMsg :: MVar () -> Client -> ConfigReader -> LuxiOp -> IO Bool


  		












Also available in:
  Unified diff