diff options
| -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") |