From 96ee23d7779197cc5e70dc811b9877e9d8d25401 Mon Sep 17 00:00:00 2001 From: Ray Miller Date: Sun, 26 Jan 2025 16:07:31 +0000 Subject: [PATCH] Delete basic example (it was for the non-interceptor implementation) --- examples/basic.scm | 34 ---------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 examples/basic.scm diff --git a/examples/basic.scm b/examples/basic.scm deleted file mode 100644 index 597d1ad..0000000 --- a/examples/basic.scm +++ /dev/null @@ -1,34 +0,0 @@ -(use-modules - (ice-9 filesystem) - (ice-9 pretty-print) - (logging logger) - (ordo) - (ordo action filesystem)) - -(playbook - #:name "Basic filesystem operations" - #:plays (list - (play - #:name "Temporary files on localhost" - #:host "localhost" - #:tasks (list - (task #:name "Create temporary directory" - #:action (lambda () (fs:create-tmp-dir (current-connection))) - #:register-play-var #:tmp-dir) - - (task #:name "Create hello.txt" - #:action (lambda () (fs:install-file (current-connection) - (file-name-join* ($ #:tmp-dir) "hello.txt") - #:content "Hello, world!")) - #:register-play-var #:hello) - - (task #:name "Stat hello.txt" - #:action (lambda () (fs:stat (current-connection) ($ #:hello))) - #:register-play-var #:hello-stat) - - (task #:name "Debug variables" - #:action (lambda () - (pretty-print (list #:hello ($ #:hello) #:hello-stat ($ #:hello-stat))))) - - (task #:name "Clean up tmp dir" - #:action (lambda () (fs:remove (current-connection) ($ #:tmp-dir) #:recurse? #t #:verbose? #t)))))))