(define-module (debugging-module)
  #:use-module (guix gexp)
  #:use-module (guix utils))

(define-public debugging-module-location
  (current-source-directory))

(define-public debugging-module-source-props-location
  (source-properties->location
   (current-source-location)))

(define-public debugging-module-filename
  (current-filename))

(define-public debugging-hello-world
  (local-file "../../hello-world"))

(define-public two-folders-back
  (if debugging-module-location
      (canonicalize-path
       (string-append debugging-module-location "/../../"))
      "unknown"))

(define-public two-folders-back-from-filename
  (if debugging-module-filename
      (canonicalize-path
       (string-append (dirname debugging-module-filename) "/../../"))
      "unknown"))