Delete basic example

(it was for the non-interceptor implementation)
This commit is contained in:
Ray Miller 2025-01-26 16:07:31 +00:00
parent adff143a99
commit 96ee23d777
Signed by: ray
GPG key ID: 043F786C4CD681B8

View file

@ -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)))))))