From 52f486fc3855c20f2ef092cdd17437bfc16302f6 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 18 Nov 2023 00:00:45 +0000
Subject: ccwl: Restrict #:binding parameter to YAML serializable trees.

* ccwl/ccwl.scm (ensure-yaml-serializable): Accept parameter name for
&formatted-message condition.
(input): Explicitly pass parameter name #:other. Restrict #:binding
parameter to YAML serializable trees.
*
doc/capture-output-file-with-parameter-reference.scm (extract-specific-file),
doc/capture-output-file.scm (extract),
doc/decompress-compile-run.scm (compile): Pass an YAML serializable
tree, not an expression, as the #:binding parameter.
---
 doc/capture-output-file-with-parameter-reference.scm | 2 +-
 doc/capture-output-file.scm                          | 2 +-
 doc/decompress-compile-run.scm                       | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'doc')

diff --git a/doc/capture-output-file-with-parameter-reference.scm b/doc/capture-output-file-with-parameter-reference.scm
index fb32fc8..d9a0217 100644
--- a/doc/capture-output-file-with-parameter-reference.scm
+++ b/doc/capture-output-file-with-parameter-reference.scm
@@ -3,7 +3,7 @@
            #:run "tar" "--extract" "--file" archive extractfile
            #:outputs (extracted-file
                       #:type File
-                      #:binding '((glob . "$(inputs.extractfile)")))))
+                      #:binding ((glob . "$(inputs.extractfile)")))))
 
 (workflow ((archive #:type File) (extractfile #:type string))
   (extract-specific-file #:archive archive #:extractfile extractfile))
diff --git a/doc/capture-output-file.scm b/doc/capture-output-file.scm
index 2993c48..812a9a6 100644
--- a/doc/capture-output-file.scm
+++ b/doc/capture-output-file.scm
@@ -3,7 +3,7 @@
            #:run "tar" "--extract" "--file" archive
            #:outputs (extracted-file
                       #:type File
-                      #:binding '((glob . "hello.txt")))))
+                      #:binding ((glob . "hello.txt")))))
 
 (workflow ((archive #:type File))
   (extract #:archive archive))
diff --git a/doc/decompress-compile-run.scm b/doc/decompress-compile-run.scm
index 3513fd6..95bc9f8 100644
--- a/doc/decompress-compile-run.scm
+++ b/doc/decompress-compile-run.scm
@@ -8,7 +8,7 @@
            #:run "gcc" "-x" "c" source
            #:outputs (executable
                       #:type File
-                      #:binding '((glob . "a.out")))))
+                      #:binding ((glob . "a.out")))))
 
 (define run
   (command #:inputs executable
-- 
cgit v1.2.3