diff options
| author | EuAndreh <eu@euandre.org> | 2024-08-29 13:43:12 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2024-08-29 13:43:12 -0300 |
| commit | d4ac97de8d3c99df90aad0e3e6264d6c61aab398 (patch) | |
| tree | 673d590df0091da1ead6db73e539dcd981876c70 | |
| parent | packages.scm: Remove file before symlinking (A.K.A.: ln -fs) (diff) | |
| download | packages-d4ac97de8d3c99df90aad0e3e6264d6c61aab398.tar.gz packages-d4ac97de8d3c99df90aad0e3e6264d6c61aab398.tar.xz | |
packages.scm: Conditionally delete symlinked file
| -rw-r--r-- | src/org/euandre/packages.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/org/euandre/packages.scm b/src/org/euandre/packages.scm index c99c802..ea1117b 100644 --- a/src/org/euandre/packages.scm +++ b/src/org/euandre/packages.scm @@ -588,7 +588,8 @@ (define (link from to) (format (current-error-port) "Symlink: ~a -> ~a~%" to from) - (delete-file to) + (when (file-exists? to) + (delete-file to)) (symlink from to)) (link "mnt/production/opt" "/opt") (link "mnt/production/srv" "/srv") |