diff options
Diffstat (limited to 'guix-build-coordinator/agent.scm')
-rw-r--r-- | guix-build-coordinator/agent.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 68f9b86..5eeacdc 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -277,7 +277,7 @@ (define (get-compressed-outputs store) (let ((outputs (derivation-outputs - (read-derivation-from-file derivation-name)))) + (read-derivation-from-file* derivation-name)))) (for-each (match-lambda ((_ . output) @@ -354,7 +354,7 @@ (report-build-start coordinator-interface build-id #:log (build-log-procedure lgr build-id)) - (let* ((derivation (read-derivation-from-file derivation-name)) + (let* ((derivation (read-derivation-from-file* derivation-name)) (result (perform-build lgr store build-id derivation)) ;; TODO Check this handles timezones right (end-time (localtime (time-second (current-time)) "UTC")) @@ -862,7 +862,7 @@ but the guix-daemon claims it's unavailable" (if (valid-path? store derivation-name) (begin (add-temp-root store derivation-name) - (read-derivation-from-file derivation-name)) + (read-derivation-from-file* derivation-name)) (and (with-exception-handler (lambda (exn) @@ -886,7 +886,7 @@ but the guix-daemon claims it's unavailable" #:delay (random 15)) #t) #:unwind? #t) - (read-derivation-from-file derivation-name))))) + (read-derivation-from-file* derivation-name))))) (if derivation (begin (log-msg lgr 'DEBUG |