branch master updated: Fix squee upgrade issues in the load-new-guix-revision module

[Christopher Baines]

This is an automated email from the git hooks/post-receive script.

cbaines pushed a commit to branch master
in repository data-service.

The following commit(s) were added to refs/heads/master by this push:
     new bd83906  Fix squee upgrade issues in the load-new-guix-revision module
bd83906 is described below

commit bd8390673e073a4d66082e48120cc3c86a255fc8
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sat Jan 2 11:13:30 2021 +0000

    Fix squee upgrade issues in the load-new-guix-revision module
---
 guix-data-service/jobs/load-new-guix-revision.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/guix-data-service/jobs/load-new-guix-revision.scm 
b/guix-data-service/jobs/load-new-guix-revision.scm
index e369ad5..0d9b979 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -1497,7 +1497,8 @@ ORDER BY load_new_guix_revision_jobs.id DESC
      ((id commit source git-repository-id created-at succeeded-at
           events-json log-exists?)
       (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))
             (string=? log-exists? "t"))))
@@ -1552,7 +1553,8 @@ ORDER BY latest_branch_commit DESC, id DESC")
      ((id commit source git-repository-id created-at
           events-json log-exists? latest-branch-commit)
       (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))
             (string=? log-exists? "t")