diff options
-rw-r--r-- | guix-data-service/model/derivation.scm | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm index 4660a4c..4cb8db4 100644 --- a/guix-data-service/model/derivation.scm +++ b/guix-data-service/model/derivation.scm @@ -1415,15 +1415,11 @@ VALUES ($1, $2);" derivation-id (append-map! (match-lambda - (($ <derivation-input> derivation-or-path sub-derivations) - (let ((path - (match derivation-or-path - ((? derivation? d) - ;; The first field changed to a derivation (from the file - ;; name) in 5cf4b26d52bcea382d98fb4becce89be9ee37b55 - (derivation-file-name d)) - ((? string? s) - s)))) + ;; The first field changed to a derivation (from the file name) + ;; in 5cf4b26d52bcea382d98fb4becce89be9ee37b55, so guard against + ;; that in the match + (($ <derivation-input> (? derivation? d) sub-derivations) + (let ((path (derivation-file-name d))) (map (lambda (sub-derivation) (select-derivation-output-id conn sub-derivation |