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

Copy some of the initialisation from (guix git)

Browse source 
To go along with just-update-cached-checkout.
This commit is contained in:
Christopher Baines 2023-10-11 16:33:53 +01:00
parent 695fce6922
commit 70f1824e46
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
guix-data-service/poll-git-repository.scm
View file

@ -22,11 +22,7 @@
#:use-module (srfi srfi-71) #:use-module (srfi srfi-71)
#:use-module (ice-9 threads) #:use-module (ice-9 threads)
#:use-module (squee) #:use-module (squee)
#:use-module (git oid) #:use-module (git)
#:use-module (git branch)
#:use-module (git remote)
#:use-module (git reference)
#:use-module (git repository)
#:use-module (guix git) #:use-module (guix git)
#:use-module (guix channels) #:use-module (guix channels)
#:use-module (guix-data-service database) #:use-module (guix-data-service database)
@ -39,6 +35,9 @@
(define (start-thread-to-poll-git-repository git-repository-id) (define (start-thread-to-poll-git-repository git-repository-id)
(call-with-new-thread (call-with-new-thread
(lambda () (lambda ()
(libgit2-init!)
(honor-system-x509-certificates!)
(with-postgresql-connection (with-postgresql-connection
(simple-format #f "poll-git-repository-~A" (simple-format #f "poll-git-repository-~A"
git-repository-id) git-repository-id)