Revision a1b5eeaf

b/Ganeti/Luxi.hs
58 58 
-- | Currently supported Luxi operations.
59 59 
data LuxiOp = QueryInstances
60 60 
            | QueryNodes
61 
            | QueryJobs
62 
            | SubmitManyJobs
61 63 

  		





  62
  64
  
    
-- | The serialisation of LuxiOps into strings in messages.


  		





  63
  65
  
    
strOfOp :: LuxiOp -> String


  		





  64
  66
  
    
strOfOp QueryNodes = "QueryNodes"


  		





  65
  67
  
    
strOfOp QueryInstances = "QueryInstances"


  		





  
  68
  
    
strOfOp QueryJobs = "QueryJobs"


  		





  
  69
  
    
strOfOp SubmitManyJobs = "SubmitManyJobs"


  		





  66
  70
  
    

  		





  67
  71
  
    
-- | The end-of-message separator.


  		





  68
  72
  
    
eOM :: Char


  		












Also available in:
  Unified diff