diff options
Diffstat (limited to 'guix-data-service/model/derivation.scm')
| -rw-r--r-- | guix-data-service/model/derivation.scm | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm index 7a710de..07b8ee6 100644 --- a/guix-data-service/model/derivation.scm +++ b/guix-data-service/model/derivation.scm @@ -519,19 +519,6 @@ ORDER BY derivations.system DESC, (exec-query conn query)) -(define (deduplicate-strings strings) - (pair-fold - (lambda (pair result) - (if (null? (cdr pair)) - (cons (first pair) result) - (if (string=? (first pair) (second pair)) - result - (cons (first pair) result)))) - '() - (sort strings - (lambda (a b) - (string<? a b))))) - (define (deduplicate-derivations derivations) (define sorted-derivations (sort derivations |