diff options
| -rw-r--r-- | ccwl/graphviz.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/ccwl/graphviz.scm b/ccwl/graphviz.scm index 2dc4f8d..820aadc 100644 --- a/ccwl/graphviz.scm +++ b/ccwl/graphviz.scm @@ -33,7 +33,15 @@ #:use-module (ccwl ccwl) #:use-module (ccwl utils) #:export (workflow->dot - command->dot)) + command->dot + workflow-or-command->dot)) + +(define workflow-or-command->dot + (match-lambda* + (((? workflow? workflow) port) + (workflow->dot workflow port)) + (((? command? command) port) + (command->dot command port)))) (define (workflow->dot workflow port) "Render WORKFLOW, a <workflow> object, to PORT in the graphviz dot |