diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-01-18 14:38:33 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-01-18 14:41:32 +0000 |
| commit | 15b6dad5a56a48f81d2a0bb45de9224c5e8ed805 (patch) | |
| tree | f1fcc449218cac6d704b5dd733a3204eea5a590f /guix-data-service/model | |
| parent | 45d9b1ad7cb9ecacd754cc3957c7280b299596e7 (diff) | |
| download | data-service-15b6dad5a56a48f81d2a0bb45de9224c5e8ed805.tar data-service-15b6dad5a56a48f81d2a0bb45de9224c5e8ed805.tar.gz | |
Have delete-duplicates/sort! take a equality procedure
And change the default, as eq? doesn't always work.
Diffstat (limited to 'guix-data-service/model')
| -rw-r--r-- | guix-data-service/model/derivation.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm index d95e285..c516e58 100644 --- a/guix-data-service/model/derivation.scm +++ b/guix-data-service/model/derivation.scm @@ -1840,7 +1840,8 @@ WHERE derivation_inputs.derivation_id IN (" (length ids-chunk)) (exec-query conn query))))) (chunk! ids 500)) - <)) + < + =)) (define (derivation-ids->missing-sources ids) (define query |