diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-01-23 09:31:11 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-01-23 09:31:11 +0100 |
| commit | f92ad7001fc9c17edcbe2c28705d6e15b88c63da (patch) | |
| tree | b2233947423b8079fbeb7259b0d650c539e68d0c | |
| parent | ee11ba1d93b24753eafcd77eef8543e5cac5ba4c (diff) | |
| download | cuirass-f92ad7001fc9c17edcbe2c28705d6e15b88c63da.tar cuirass-f92ad7001fc9c17edcbe2c28705d6e15b88c63da.tar.gz | |
Fix scope mismatch.
* src/cuirass/base.scm (process-specs): Add new 'with-database' within
the fiber.
| -rw-r--r-- | src/cuirass/base.scm | 11 |
1 files 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*)))))) |