nassella/app
1
0
Fork 0
Code Issues 12 Pull Requests Packages Projects 1 Releases Wiki Activity

Adding time to release snapshot.

Browse Source
This commit is contained in:
Thomas Hintz
2026-06-23 17:50:28 -07:00
parent e83a2d2718
commit 868e00ac41
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/nassella.scm
View File

@@ -1533,7 +1533,7 @@ chmod -R 777 /opt/keys")))
`((request_id . ,backup-request-id) `((request_id . ,backup-request-id)
(version . 0))))) (version . 0)))))
(complete (string=? (alist-ref 'status status-result) "complete"))) (complete (string=? (alist-ref 'status status-result) "complete")))
(if (or complete (> (- (time->seconds (current-time)) start-time) 45)) (if (or complete (> (- (time->seconds (current-time)) start-time) 120))
(with-db/transaction (with-db/transaction
(lambda (db) (lambda (db)
(update-deployment-progress db deployment-id `((instance-backup . ,(or (and complete 'complete) 'failed)))))) (update-deployment-progress db deployment-id `((instance-backup . ,(or (and complete 'complete) 'failed))))))