M .guix/modules/debugging-module.scm => .guix/modules/debugging-module.scm +4 -0
@@ 1,4 1,5 @@
(define-module (debugging-module)
+ #:use-module (guix gexp)
#:use-module (guix utils))
(define-public debugging-module-location
@@ 9,3 10,6 @@
(define-public debugging-hello-world
(local-file "../../hello-world"))
+
+(define-public two-folders-back
+ (canonicalize-path (string-append debugging-module-location "../../")))
A debugging.scm => debugging.scm +13 -0
@@ 0,0 1,13 @@
+#!/usr/bin/env guile
+
+(use-modules
+ (debugging-module)
+ (guix store)
+ (guix gexp))
+
+(display debugging-module-location)
+(display debugging-module-filename)
+
+(with-store store
+ (run-with-store store
+ (gexp->derivation debugging-hello-world)))