From f92ad7001fc9c17edcbe2c28705d6e15b88c63da Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 23 Jan 2018 09:31:11 +0100 Subject: Fix scope mismatch. * src/cuirass/base.scm (process-specs): Add new 'with-database' within the fiber. --- src/cuirass/base.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm index 3eb105e..155330d 100644 --- a/src/cuirass/base.scm +++ b/src/cuirass/base.scm @@ -407,11 +407,12 @@ and so on. " (log-message "evaluating '~a' with commit ~s" name commit) (with-store store - (let* ((spec* (acons #:current-commit commit spec)) - (jobs (evaluate store db spec*))) - (log-message "building ~a jobs for '~a'" - (length jobs) name) - (build-packages store db jobs)))))) + (with-database db + (let* ((spec* (acons #:current-commit commit spec)) + (jobs (evaluate store db spec*))) + (log-message "building ~a jobs for '~a'" + (length jobs) name) + (build-packages store db jobs))))))) ;; 'spawn-fiber' returns zero values but we need one. *unspecified*)))))) -- cgit v1.2.3