Test vars and overrides

modules/ordo/action/filesystem.scm

@@ -19,6 +19,7 @@
 
 (define* (install-directory path #:key owner group mode)
   (lambda (conn)
+    (format #t "install-directory ~a~%" path)
     (connection-must conn "install" (chain-when
                                      '("--directory")
                                      (owner (append _ `("--owner" ,owner)))
@@ -45,6 +46,7 @@
   (when (not (= 1 (length (filter identity (list content local-src remote-src)))))
     (error "exactly one of #:content, #:local-src, or #:remote-src is required"))
   (lambda (conn)
+    (format #t "install-file ~a~%" path)
     (let ((remote-src (cond
                        (remote-src remote-src)
                        (local-src (call-with-input-file local-src (upload-tmp-file conn)))

modules/ordo/context.scm

@@ -21,6 +21,7 @@
 (define* (context #:key scratch-dir init-vars)
   (make-context scratch-dir init-vars))
 
+;; TODO: (resolve-content-refs ctx (lambda (x) x)) fails
 (define-syntax resolve-context-refs
   (syntax-rules ($)
     ((_ ctx ($ x))