IS7GUIWYGOHEOYMOULIRE45MG7FFSBDN2MYDPKLGZ6PIQ5X4F5XQC
(define (job-evaluations->sxml jobs)
(define (register-gc-root drv roots-dir)
"Register a permanent garbage collector root under ROOTS-DIR for DRV."
(let ((root (string-append roots-dir "/" (basename drv))))
(unless (file-exists? root)
(symlink drv root))))
(define* (job-evaluations->sxml jobs
#:key gc-roots-dir)