From 89e34f3df85e12e92d4ccb6c48c43c1dcb279484 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 22 Dec 2019 11:38:45 +0000
Subject: [PATCH] Ignore cross built derivations for the build stats

---
 guix-data-service/model/build.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/guix-data-service/model/build.scm b/guix-data-service/model/build.scm
index 212b679..6dd7a96 100644
--- a/guix-data-service/model/build.scm
+++ b/guix-data-service/model/build.scm
@@ -15,7 +15,12 @@
 
 (define* (select-build-stats conn build-servers #:key revision-commit)
   (define criteria
-    `(,@(if build-servers
+    `(,@(if revision-commit
+            ;; Ignore cross built derivations, as I'm not aware of a build server
+            ;; that builds them
+            '("package_derivations.system = package_derivations.target")
+            '())
+      ,@(if build-servers
             (list
              (string-append
               "builds.build_server_id IN ("