[no subject]

[Mathieu Othacehe]

branch: master
commit 598fe168da977ae5fbdef0a889b5c0f8283b9748
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Fri Apr 30 10:49:41 2021 +0200

    Add channel dependencies support.
    
    * src/cuirass/base.scm (process-specs): Update the specification to include
    possible channel dependencies.
---
 src/cuirass/base.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index 1b0dec6..cfda6dc 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -694,6 +694,11 @@ by BUILD-OUTPUTS."
                          (log-message "Fetching channels for spec '~a'." name)
                          (latest-channel-instances* store channels
                                                     #:authenticate? #f)))
+             (new-channels (map channel-instance-channel instances))
+             (new-spec (specification
+                        (inherit spec)
+                        (channels new-channels))) ;include possible channel
+                                                  ;dependencies.
              (checkouttime (time-second (current-time time-utc)))
              (eval-id (db-add-evaluation name instances
                                          #:timestamp timestamp
@@ -709,6 +714,11 @@ by BUILD-OUTPUTS."
                         #f))
                (log-message "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)))))