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

Fix squee upgrade issues in the load-new-guix-revision module

Browse source
This commit is contained in:
Christopher Baines 2021-01-02 11:13:30 +00:00
parent e85131a004
commit bd8390673e
1 changed files with 4 additions and 2 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

@ -1497,7 +1497,8 @@ ORDER BY load_new_guix_revision_jobs.id DESC
((id commit source git-repository-id created-at succeeded-at ((id commit source git-repository-id created-at succeeded-at
events-json log-exists?) events-json log-exists?)
(list id commit source git-repository-id created-at succeeded-at (list id commit source git-repository-id created-at succeeded-at
(if (string-null? events-json) (if (or (eq? #f events-json)
(string-null? events-json))
#() #()
(json-string->scm events-json)) (json-string->scm events-json))
(string=? log-exists? "t")))) (string=? log-exists? "t"))))
@ -1552,7 +1553,8 @@ ORDER BY latest_branch_commit DESC, id DESC")
((id commit source git-repository-id created-at ((id commit source git-repository-id created-at
events-json log-exists? latest-branch-commit) events-json log-exists? latest-branch-commit)
(list id commit source git-repository-id created-at (list id commit source git-repository-id created-at
(if (string-null? events-json) (if (or (eq? #f events-json)
(string-null? events-json))
#() #()
(json-string->scm events-json)) (json-string->scm events-json))
(string=? log-exists? "t") (string=? log-exists? "t")