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

Raise an exception on missing level counts

Browse source
This commit is contained in:
Christopher Baines 2025-07-04 13:15:03 +01:00
parent 7e910be46e
commit 5701c5ca55
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
guix-data-service/model/guix-revision-package-derivation.scm
View file

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