Revision 7e723913 htools/Ganeti/Luxi.hs

b/htools/Ganeti/Luxi.hs
138 138 
  , (luxiReqQueryTags,
139 139 
     [ pTagsObject ])
140 140 
  , (luxiReqSubmitJob,
141 
     [ simpleField "job" [t| [OpCode] |] ]
141 
     [ simpleField "job" [t| [MetaOpCode] |] ]
142 142 
    )
143 143 
  , (luxiReqSubmitManyJobs,
144 
     [ simpleField "ops" [t| [[OpCode]] |] ]
144 
     [ simpleField "ops" [t| [[MetaOpCode]] |] ]
145 145 
    )
146 146 
  , (luxiReqWaitForJobChange,
147 147 
     [ simpleField "job"      [t| JobId   |]
......
443 443 
      show (pp_value v)
444 444 

  		





  445
  445
  
    
-- | Specialized submitManyJobs call.


  		





  446
  
  
    
submitManyJobs :: Client -> [[OpCode]] -> IO (ErrorResult [JobId])


  		





  
  446
  
    
submitManyJobs :: Client -> [[MetaOpCode]] -> IO (ErrorResult [JobId])


  		





  447
  447
  
    
submitManyJobs s jobs = do


  		





  448
  448
  
    
  rval <- callMethod (SubmitManyJobs jobs) s


  		





  449
  449
  
    
  -- map each result (status, payload) pair into a nice Result ADT


  		












Also available in:
  Unified diff