From 2a1df5a8b00ade3c5cdbf12e6dc8e738474213e8 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Sun, 26 Nov 2023 18:45:17 -0300
Subject: system.scm: Use "/opt/deploy/current" in prod

---
 src/guix/system.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/guix/system.scm b/src/guix/system.scm
index 5ab88ec..717f721 100644
--- a/src/guix/system.scm
+++ b/src/guix/system.scm
@@ -5,6 +5,7 @@
   ((org euandre queue) #:prefix queue:)
   (gnu)
   (guix build-system trivial)
+  (guix build utils)
   (guix packages))
 (use-package-modules
   admin
@@ -25,7 +26,9 @@
 
 
 (define +working-dir+
-  (canonicalize-path "."))
+  (if (directory-exists? "/opt/deploy/current")
+    "/opt/deploy/current"
+    (canonicalize-path ".")))
 
 (define (str . rest)
   (apply string-append rest))
-- 
cgit v1.2.3