aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ccwl/graphviz.scm10
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