cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Log the time spent in a locked section

Browse source
This commit is contained in:
Christopher Baines 2020-02-28 20:41:44 +00:00
parent f23223f16d
commit 185ba36853
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -279,7 +279,11 @@ WHERE job_id = $1"
(let ((time-taken (- (current-time) start-time))) (let ((time-taken (- (current-time) start-time)))
(simple-format #t "debug: Finished aquiring lock ~A, took ~A seconds\n" (simple-format #t "debug: Finished aquiring lock ~A, took ~A seconds\n"
lock time-taken)) lock time-taken))
(f))))) (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 (all-inferior-system-tests inf store) (define (all-inferior-system-tests inf store)
(define extract (define extract