workflow: Do not require user to provide inputs with a default.

It is ok for the user to not provide inputs that have a default value.

1 files changed, 4 insertions, 1 deletions

diff --git a/ravanan/workflow.scm b/ravanan/workflow.scm
index 1d4c739..e7dbcb5 100644
--- a/ravanan/workflow.scm
+++ b/ravanan/workflow.scm
@@ -645,7 +645,10 @@ area need not be shared. @var{store} is the path to the shared ravanan store.
     (vector-for-each (lambda (formal-input)
                        (let* ((id (assoc-ref formal-input "id"))
                               (type (assoc-ref formal-input "type"))
-                              (input-value (assoc-ref inputs id)))
+                              ;; Either an input is provided or we have a
+                              ;; default.
+                              (input-value (or (assoc-ref inputs id)
+                                               (assoc-ref formal-input "default"))))
                          (unless input-value
                            (user-error "Input `~a' not provided" id))
                          (unless (match-type input-value