Revision 2af22d70 src/Ganeti/JQueue.hs

b/src/Ganeti/JQueue.hs
34 34
    , Timestamp
35 35
    , noTimestamp
36 36
    , currentTimestamp
37
    , setReceivedTimestamp
37 38
    , opStatusFinalized
38 39
    , extractOpSummary
39 40
    , calcJobStatus
......
184 185
                   , qjEndTimestamp = Nothing
185 186
                   }
186 187

  
188
-- | Attach a received timestamp to a Queued Job.
189
setReceivedTimestamp :: Timestamp -> QueuedJob -> QueuedJob
190
setReceivedTimestamp ts job = job { qjReceivedTimestamp = Just ts }
191

  
187 192
-- | Job file prefix.
188 193
jobFilePrefix :: String
189 194
jobFilePrefix = "job-"

Also available in: Unified diff