ray/ordo
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Expand file names before loading

Browse source
This commit is contained in:
Ray Miller 2025-01-23 18:29:47 +00:00
parent 8a1e1b244f
commit 7401263664
Signed by: ray
GPG key ID: 043F786C4CD681B8
1 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

21
modules/ordo/cli.scm
View file

@ -1,4 +1,5 @@
(define-module (ordo cli) (define-module (ordo cli)
#:use-module (ice-9 filesystem)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (logging logger) #:use-module (logging logger)
#:use-module (ordo logger) #:use-module (ordo logger)
@ -9,12 +10,14 @@
(define (main args) (define (main args)
(match-let (((_ inventory-path playbook-path) args)) (match-let (((_ inventory-path playbook-path) args))
(setup-logging #:level 'DEBUG) (let ((inventory-path (expand-file-name inventory-path))
(log-msg 'DEBUG "Initializing context") (playbook-path (expand-file-name playbook-path)))
(init-context!) (setup-logging #:level 'DEBUG)
(load inventory-path) (log-msg 'DEBUG "Initializing context")
(log-msg 'DEBUG "Loaded inventory: " inventory-path) (init-context!)
(let ((playbook (load playbook-path))) (load inventory-path)
(log-msg 'DEBUG "Loaded playbook: " playbook-path) (log-msg 'DEBUG "Loaded inventory: " inventory-path)
(run-playbook playbook)) (let ((playbook (load playbook-path)))
(quit))) (log-msg 'DEBUG "Loaded playbook: " playbook-path)
(run-playbook playbook))
(quit))))