diff options
Diffstat (limited to 'guix-data-service/poll-git-repository.scm')
| -rw-r--r-- | guix-data-service/poll-git-repository.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/guix-data-service/poll-git-repository.scm b/guix-data-service/poll-git-repository.scm index e059343..124c559 100644 --- a/guix-data-service/poll-git-repository.scm +++ b/guix-data-service/poll-git-repository.scm @@ -25,6 +25,8 @@ #:use-module (git) #:use-module (guix git) #:use-module (guix channels) + #:use-module ((guix build syscalls) + #:select (set-thread-name)) #:use-module (guix-data-service database) #:use-module (guix-data-service model git-repository) #:use-module (guix-data-service model git-branch) @@ -35,6 +37,13 @@ (define (start-thread-to-poll-git-repository git-repository-id) (call-with-new-thread (lambda () + (catch 'system-error + (lambda () + (set-thread-name + (simple-format #f "poll git ~A" + git-repository-id))) + (const #t)) + (libgit2-init!) (honor-system-x509-certificates!) |