Revision 847df9e9 src/Ganeti/JQueue.hs

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

  		





  
  249
  
    
-- | Determine if a job is finalised.


  		





  
  250
  
    
jobFinalized :: QueuedJob -> Bool


  		





  
  251
  
    
jobFinalized = (> JOB_STATUS_RUNNING) . calcJobStatus


  		





  
  252
  
    

  		





  248
  253
  
    
-- | Determine whether an opcode status is finalized.


  		





  249
  254
  
    
opStatusFinalized :: OpStatus -> Bool


  		





  250
  255
  
    
opStatusFinalized = (> OP_STATUS_RUNNING)


  		












Also available in:
  Unified diff