From d4ac97de8d3c99df90aad0e3e6264d6c61aab398 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Thu, 29 Aug 2024 13:43:12 -0300
Subject: packages.scm: Conditionally delete symlinked file

---
 src/org/euandre/packages.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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")
-- 
cgit v1.2.3