From 5701c5ca5595e9cc33441121d72e1da8ef2af969 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 4 Jul 2025 13:15:03 +0100
Subject: [PATCH] Raise an exception on missing level counts

---
 .../model/guix-revision-package-derivation.scm       | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/guix-data-service/model/guix-revision-package-derivation.scm b/guix-data-service/model/guix-revision-package-derivation.scm
index 6a1f7c4..f2223c4 100644
--- a/guix-data-service/model/guix-revision-package-derivation.scm
+++ b/guix-data-service/model/guix-revision-package-derivation.scm
@@ -18,6 +18,7 @@
 (define-module (guix-data-service model guix-revision-package-derivation)
   #:use-module (ice-9 match)
   #:use-module (ice-9 threads)
+  #:use-module (ice-9 exceptions)
   #:use-module (squee)
   #:use-module (guix-data-service database)
   #:use-module (guix-data-service utils)
@@ -301,6 +302,11 @@ WITH l0 AS (
      "
 )"))
 
-  (if level-counts
-      (query level-counts)
-      #f))
+  (if (null? level-counts)
+      (raise-exception
+       (make-exception-with-message
+        (simple-format #f "missing level counts for ~A ~A ~A"
+                       guix-revision-id
+                       system-id
+                       target)))
+      (query level-counts)))