1 files changed, 12 insertions, 0 deletions
diff --git a/guix-data-service/model/git-repository.scm b/guix-data-service/model/git-repository.scm
index 2ed3f01..5b6997c 100644
--- a/guix-data-service/model/git-repository.scm
+++ b/guix-data-service/model/git-repository.scm
@@ -22,6 +22,7 @@
   #:export (all-git-repositories
             select-git-repository
             git-repository-id->url
+            git-repository-x-git-repo-header->git-repository-id
             git-repository-url->git-repository-id
             git-repositories-containing-commit
 
@@ -59,6 +60,17 @@
        (list id))
     (((url)) url)))
 
+(define (git-repository-x-git-repo-header->git-repository-id conn header)
+  (match
+      (exec-query
+       conn
+       (string-append
+        "SELECT id FROM git_repositories WHERE x_git_repo_header = $1;")
+       (list header))
+    (() #f)
+    (((id))
+     (string->number id))))
+
 (define (git-repository-url->git-repository-id conn url)
   (let ((existing-id
          (exec-query