Revision ef89d9d5 src/Ganeti/Query/Server.hs

b/src/Ganeti/Query/Server.hs
259 259 
          Bad s -> return . Bad . GenericError $ s
260 260 
          Ok jids -> do
261 261 
            ts <- currentTimestamp
262 
            jobs <- liftM (map $ setReceivedTimestamp ts)
262 
            jobs <- liftM (map $ extendJobReasonTrail . setReceivedTimestamp ts)
263 263 
                      $ zipWithM queuedJobFromOpCodes jids lops
264 264 
            qDir <- queueDir
265 265 
            write_results <- mapM (writeJobToDisk qDir) jobs

Also available in: Unified diff