[no subject]

[Ludovic Courtès]

branch: master
commit f92ad7001fc9c17edcbe2c28705d6e15b88c63da
Author: Ludovic Courtès <address@hidden>
Date:   Tue Jan 23 09:31:11 2018 +0100

    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*))))))