Revision 02e40b13 src/Ganeti/JQueue.hs

b/src/Ganeti/JQueue.hs
38 38 
    , opStatusFinalized
39 39 
    , extractOpSummary
40 40 
    , calcJobStatus
41 
    , jobStarted
41 42 
    , jobFinalized
42 43 
    , calcJobPriority
43 44 
    , jobFileName
......
246 247 
           | otherwise        = extractOpSt xs (opStatusToJob x) new_all
247 248 
           where new_all = x == OP_STATUS_SUCCESS && old_all
248 249 

  		





  
  250
  
    
-- | Determine if a job has started


  		





  
  251
  
    
jobStarted :: QueuedJob -> Bool


  		





  
  252
  
    
jobStarted = (> JOB_STATUS_QUEUED) . calcJobStatus


  		





  
  253
  
    

  		





  249
  254
  
    
-- | Determine if a job is finalised.


  		





  250
  255
  
    
jobFinalized :: QueuedJob -> Bool


  		





  251
  256
  
    
jobFinalized = (> JOB_STATUS_RUNNING) . calcJobStatus


  		












Also available in:
  Unified diff