Revision 0c09ecc2 src/Ganeti/Query/Server.hs

b/src/Ganeti/Query/Server.hs
345 345 
                       let mcs = Config.getMasterCandidates cfg
346 346 
                           live = liveJobFile qDir jid
347 347 
                           archive = archivedJobFile qDir jid
348 
                       renameResult <- safeRenameFile live archive
348 
                       renameResult <- safeRenameFile queueDirPermissions
349 
                                         live archive
349 350 
                       putMVar qlock ()
350 351 
                       case renameResult of
351 352 
                         Bad s -> return . Bad . JobQueueError

Also available in: Unified diff