From a7280ab79735b5838d14aa65f42aae0838161258 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Mon, 18 Oct 2021 00:38:32 +0530 Subject: ccwl: Fix indentation and paragraph filling. * ccwl/ccwl.scm (collect-steps): Fix indentation. (key->output): Fill paragraph. --- ccwl/ccwl.scm | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 9b0c049..626a80e 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -288,11 +288,11 @@ represented by objects." (command-object #'command))) 1)) (collect-steps #`(command (step-id) - #,(match (command-input-keys - (command-object #'command)) - ((command-key) (symbol->keyword command-key))) - #,(match input-keys - ((input-key) (key-name input-key)))) + #,(match (command-input-keys + (command-object #'command)) + ((command-key) (symbol->keyword command-key))) + #,(match input-keys + ((input-key) (key-name input-key)))) input-keys)) ((command (step-id) args ...) ;; Run a whole bunch of tests so that we can produce useful error @@ -355,7 +355,7 @@ represented by objects." ;; commands with an implicit step identifier ((command args ...) (collect-steps #'(command (command) args ...) - input-keys)) + input-keys)) ;; any other unrecognized syntax (x (error "Unrecognized syntax:" (syntax->datum #'x))))) @@ -384,9 +384,8 @@ return #f." ;; TODO: Implement escape hatch #:other in workflow syntax. (make-workflow steps input-objects - ;; Find the output object for each - ;; output key. Filter out global - ;; workflow inputs. + ;; Find the output object for each output + ;; key. Filter out global workflow inputs. (filter-map (cut key->output <> steps) output-keys) '()))) -- cgit v1.2.3