Avoid loading in all derivations

Just load in the ones that are not already in the database, as this
will hopefully be faster and require less memory.
This commit is contained in:
Christopher Baines 2019-03-14 08:18:01 +00:00
parent a0dd298239
commit d2697d8dd2
Signed by: cbaines
GPG key ID: 5E28A33B0B84F577
2 changed files with 14 additions and 19 deletions

View file

@ -82,12 +82,9 @@
(close-inferior inf)
(let ((derivation-ids
(derivations->derivation-ids
(derivation-file-names->derivation-ids
conn
(map (lambda (tuple)
(read-derivation-from-file
(fourth tuple)))
inferior-data-4-tuples)))
(map fourth inferior-data-4-tuples)))
(flat-package-ids-systems-and-targets
(map
(match-lambda