diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-06-18 10:04:23 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-06-18 10:04:23 +0100 |
| commit | 862217c054eb4cc94e6fd497d618eb8498d2be51 (patch) | |
| tree | ae6c6bfb1fc37c4e6cf425ed7a0e53741164f14e | |
| parent | 3df0b43146e20b8d86da5f890ca5cc163e929805 (diff) | |
| download | data-service-wip-debug.tar data-service-wip-debug.tar.gz | |
WIPwip-debug
| -rw-r--r-- | guix-data-service/model/package-metadata.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/guix-data-service/model/package-metadata.scm b/guix-data-service/model/package-metadata.scm index 37a8da8..c890d0b 100644 --- a/guix-data-service/model/package-metadata.scm +++ b/guix-data-service/model/package-metadata.scm @@ -142,6 +142,17 @@ WHERE packages.id IN ( (select-package-metadata package-metadata) cdr first)) ;; id)) + (log1 (vlist-map + (match-lambda + ((a . b) + (when (string=? b "5") + (peek "VALUE FOR 5" a)))) + existing-package-metadata-entries)) + (log2 (for-each (lambda (metadata) + (peek "CHECKING" metadata) + (peek (vhash-assoc metadata + existing-package-metadata-entries))) + (take package-metadata 10))) (missing-package-metadata-entries (delete-duplicates (filter (lambda (metadata) |