[no subject]

[Ludovic Courtès]

branch: master
commit 904633ad78c37df3117484b4869547772e638f7a
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Jul 15 17:17:08 2023 +0200

    base: Remove unused 'store' parameter of 'evaluate'.
    
    * src/cuirass/base.scm (evaluate): Remove unused 'store' parameter.
    (process-specs): Adjust caller accordingly.
---
 src/cuirass/base.scm | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index 4fe68ba..99b3ea1 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -220,7 +220,7 @@ context."
                  "/log/cuirass/evaluations/"
                  (number->string eval-id) ".gz"))
 
-(define (evaluate store spec eval-id)
+(define (evaluate spec eval-id)
   "Evaluate and build package derivations defined in SPEC, using CHECKOUTS.
 Return a list of jobs that are associated to EVAL-ID."
   (define log-file
@@ -686,15 +686,15 @@ specification."
                                     (evaluation-error-id c)))
                         #f))
                (log-info "evaluating spec '~a'" name)
-               (with-store store
-                 ;; The LATEST-CHANNEL-INSTANCES procedure may return channel
-                 ;; dependencies that are not declared in the initial
-                 ;; specification channels.  Update the given SPEC to take
-                 ;; them into account.
-                 (db-add-or-update-specification new-spec)
-                 (evaluate store spec eval-id)
-                 (db-set-evaluation-time eval-id)
-                 (build-packages store eval-id)))))
+
+               ;; The LATEST-CHANNEL-INSTANCES procedure may return channel
+               ;; dependencies that are not declared in the initial
+               ;; specification channels.  Update the given SPEC to take
+               ;; them into account.
+               (db-add-or-update-specification new-spec)
+               (evaluate spec eval-id)
+               (db-set-evaluation-time eval-id)
+               (build-packages store eval-id))))
 
           ;; 'spawn-fiber' returns zero values but we need one.
           *unspecified*))))