From dee8227273738261c910d545c5006aefe096b0b4 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 3 Sep 2024 20:01:20 +0100
Subject: workflow: Check requirements and hints.

* ravanan/workflow.scm (workflow->propagators): Check requirements and hints.
---
 ravanan/workflow.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/ravanan/workflow.scm b/ravanan/workflow.scm
index b531260..d3f2c7b 100644
--- a/ravanan/workflow.scm
+++ b/ravanan/workflow.scm
@@ -189,6 +189,10 @@ their own namespaces."
       ((string=? class "ExpressionTool")
        (error "Workflow class not implemented yet" class))
       ((string=? class "Workflow")
+       (maybe-let* ((requirements (maybe-assoc-ref (just cwl) "requirements")))
+         (check-requirements requirements %supported-requirements))
+       (maybe-let* ((hints (maybe-assoc-ref (just cwl) "hints")))
+         (check-requirements hints %supported-requirements #t))
        workflow-class->propagators)
       (else
        (error "Invalid workflow class" class)))
-- 
cgit v1.2.3