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

Rename functions to disambiguate

Browse source
This commit is contained in:
Ray Miller 2025-06-23 09:51:00 +01:00
parent 8a41f8f558
commit 9c3373dea9
Signed by: ray
GPG key ID: 043F786C4CD681B8
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
ordo/action/filesystem.scm
View file

@ -12,8 +12,8 @@
install-dir install-dir
install-file install-file
file-info file-info
delete remove-file
link)) create-link))
(define* (file-info conn #:key path (atime? #t) (ctime? #t)) (define* (file-info conn #:key path (atime? #t) (ctime? #t))
(define (parse-stat-result s) (define (parse-stat-result s)
@ -43,15 +43,13 @@
(let ((st-after (file-info conn #:path path #:atime? #f #:ctime? #f))) (let ((st-after (file-info conn #:path path #:atime? #f #:ctime? #f)))
(not (equal? st-before st-after))))))) (not (equal? st-before st-after)))))))
(define* (delete conn #:key path (recurse? #f)) (define* (remove-file conn #:key path (recurse? #f))
(changed-if-stat-changed (changed-if-stat-changed
conn path conn path
(remote-cmd conn "rm" "-f" (remote-cmd conn "rm" "-f" (when recurse? "-r") path
(when recurse? "-r")
path
#:check? #t))) #:check? #t)))
(define* (link conn #:key target link-name (symbolic? #f) (force? #t) (backup? #f)) (define* (create-link conn #:key target link-name (symbolic? #f) (force? #t) (backup? #f))
"Create a link to @code{target} with the name @code{link-name}." "Create a link to @code{target} with the name @code{link-name}."
(changed-if-stat-changed (changed-if-stat-changed
conn link-name conn link-name