From 2d856080a2bca9f33fa0d9e8fd3413341b8f0fe7 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 30 Sep 2024 02:41:24 +0100
Subject: workflow: Pass a list, not two vectors, to fold.

* ravanan/workflow.scm (inherit-requirements-and-hints): Pass a list,
not two vectors, to fold.
---
 ravanan/workflow.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ravanan/workflow.scm b/ravanan/workflow.scm
index 015f8d5..938ddf0 100644
--- a/ravanan/workflow.scm
+++ b/ravanan/workflow.scm
@@ -127,14 +127,14 @@ requirements and hints of the step."
           (just (fold inherit-requirements
                       (or (assoc-ref workflow "requirements")
                           #())
-                      (subset-requirements parent-requirements)
-                      (subset-requirements step-requirements))))
+                      (list (subset-requirements parent-requirements)
+                            (subset-requirements step-requirements)))))
     (cons "hints"
           (just (fold inherit-requirements
                       (or (assoc-ref workflow "hints")
                           #())
-                      (subset-requirements parent-hints)
-                      (subset-requirements step-hints))))))
+                      (list (subset-requirements parent-hints)
+                            (subset-requirements step-hints)))))))
 
 (define (coerce-type val type)
   "Coerce @var{val} to @var{type}."
-- 
cgit v1.2.3