Revision a7ab381a

b/src/Ganeti/JQueue.hs
31 31 
    , InputOpCode(..)
32 32 
    , queuedOpCodeFromMetaOpCode
33 33 
    , queuedJobFromOpCodes
34 
    , changeOpCodePriority
34 35 
    , cancelQueuedJob
35 36 
    , Timestamp
36 37 
    , fromClockTime
......
213 214 
setReceivedTimestamp :: Timestamp -> QueuedJob -> QueuedJob
214 215 
setReceivedTimestamp ts job = job { qjReceivedTimestamp = Just ts }
215 216 

  		





  
  217
  
    
-- | Change the priority of a QueuedOpCode, if it is not already


  		





  
  218
  
    
-- finalized.


  		





  
  219
  
    
changeOpCodePriority :: Int -> QueuedOpCode -> QueuedOpCode


  		





  
  220
  
    
changeOpCodePriority prio op =


  		





  
  221
  
    
  if qoStatus op > OP_STATUS_RUNNING


  		





  
  222
  
    
     then op


  		





  
  223
  
    
     else op { qoPriority = prio }


  		





  
  224
  
    

  		





  216
  225
  
    
-- | Set the state of a QueuedOpCode to canceled.


  		





  217
  226
  
    
cancelOpCode :: Timestamp -> QueuedOpCode -> QueuedOpCode


  		





  218
  227
  
    
cancelOpCode now op =


  		












Also available in:
  Unified diff