Revision 0c09ecc2 src/Ganeti/JQueue.hs
b/src/Ganeti/JQueue.hs | ||
---|---|---|
545 | 545 |
then do |
546 | 546 |
let live = liveJobFile qDir jid |
547 | 547 |
archive = archivedJobFile qDir jid |
548 |
renameResult <- safeRenameFile live archive |
|
548 |
renameResult <- safeRenameFile queueDirPermissions |
|
549 |
live archive |
|
549 | 550 |
case renameResult of |
550 | 551 |
Bad s -> do |
551 | 552 |
logWarning $ "Renaming " ++ live ++ " to " ++ archive |
Also available in: Unified diff