diff options
Diffstat (limited to 'guix-data-service/jobs/load-new-guix-revision.scm')
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index c10c9d4..d54afea 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -344,22 +344,6 @@ WHERE job_id = $1") (simple-format #t "debug: Finished ~A, took ~A seconds\n" action time-taken))))) -(define (with-advisory-session-lock/log-time conn lock f) - (simple-format #t "debug: Acquiring advisory session lock: ~A\n" lock) - (let ((start-time (current-time))) - (with-advisory-session-lock - conn - lock - (lambda () - (let ((time-taken (- (current-time) start-time))) - (simple-format #t "debug: Finished aquiring lock ~A, took ~A seconds\n" - lock time-taken)) - (let ((result (f))) - (let ((time-spent (- (current-time) start-time))) - (simple-format #t "debug: Releasing lock ~A, spent ~A seconds\n" - lock time-spent)) - result))))) - (define (inferior-guix-systems inf) ;; The order shouldn't matter here, but bugs in Guix can lead to different ;; results depending on the order, so sort the systems to try and provide |