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

Close the repository when pulling

Browse source 
And remove the monitor, as I'm not sure it's necessary.
This commit is contained in:
Christopher Baines 2023-10-16 21:18:44 +01:00
parent 851a6c17b5
commit 89782b3449
1 changed files with 12 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -77,7 +77,8 @@
;; Only fetch remote if it has not been cloned just before. ;; Only fetch remote if it has not been cloned just before.
(when cache-exists? (when cache-exists?
(remote-fetch (remote-lookup repository "origin") (remote-fetch (remote-lookup repository "origin")
#:fetch-options ((@@ (guix git) make-default-fetch-options)))))) #:fetch-options ((@@ (guix git) make-default-fetch-options))))
(repository-close! repository)))
(define (poll-git-repository conn git-repository-id) (define (poll-git-repository conn git-repository-id)
(define git-repository-details (define git-repository-details
@ -89,18 +90,16 @@
conn conn
'latest-channel-instances 'latest-channel-instances
(lambda () (lambda ()
;; Maybe this helps avoid segfaults?
(monitor
;; This was using update-cached-checkout, but it wants to checkout ;; This was using update-cached-checkout, but it wants to checkout
;; refs/remotes/origin/HEAD by default, and that can fail for some ;; refs/remotes/origin/HEAD by default, and that can fail for some reason
;; reason on some repositories: ;; on some repositories:
;; ;;
;; reference 'refs/remotes/origin/HEAD' not found ;; reference 'refs/remotes/origin/HEAD' not found
;; ;;
;; I just want to update the cached checkout though, so trying to ;; I just want to update the cached checkout though, so trying to
;; checkout some revision is unnecessary, hence ;; checkout some revision is unnecessary, hence
;; just-update-cached-checkout ;; just-update-cached-checkout
(just-update-cached-checkout (second git-repository-details))) (just-update-cached-checkout (second git-repository-details))
(let* ((repository-directory (let* ((repository-directory
(url-cache-directory (url-cache-directory