From a5a7a8d05f4cc4f8646f216f824e2fb770913787 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Sun, 18 Aug 2024 17:53:49 -0300
Subject: system.scm: use (current-filename) for setting working-dir

---
 src/guix/system.scm | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

(limited to 'src/guix/system.scm')

diff --git a/src/guix/system.scm b/src/guix/system.scm
index 476d772..b0c1a77 100644
--- a/src/guix/system.scm
+++ b/src/guix/system.scm
@@ -36,14 +36,7 @@
 
 
 (define working-dir
-  (if (directory-exists? "/opt/deploy/current")
-    "/opt/deploy/current"
-    (canonicalize-path ".")))
-
-(add-to-load-path
- (string-append working-dir "/src/infrastructure/guix"))
-(use-modules
-  ((packages) #:prefix packages:))
+  (dirname (dirname (dirname (current-filename)))))
 
 
 (define (str . rest)
-- 
cgit v1.2.3