diff options
Diffstat (limited to 'ccwl')
| -rw-r--r-- | ccwl/ccwl.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index d9d9c78..f64830c 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -615,6 +615,18 @@ a <key> object, in STEPS, a list of <step> objects. If no such (list #,@(filter-map (cut key->output <> steps) output-keys)) '()))) + ;; Guess that these are multiple unconnected expressions in the + ;; workflow body, and try to produce a helpful error message. + ((_ (inputs ...) expressions ...) + (raise-exception + (condition + (ccwl-violation x) + (formatted-message "More than one expression ~a in workflow body. Perhaps you need to combine them with a pipe or a tee?" + (string-join + (map (lambda (expression) + (call-with-output-string + (cut write expression <>))) + (syntax->datum #'(expressions ...)))))))) (x (raise-exception (condition (ccwl-violation #'x) |