Copy some of the initialisation from (guix git)

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

View File

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