(use-modules
 (debugging-module)
 (guix store)
 (guix gexp)
 (guix derivations))

(display "Source location: ")
(display debugging-module-source-props-location)
(display "\n")
(display "Filename: ")
(display debugging-module-filename)
(display "\n")

(display "\n")

(display "The local file's absolute location: ")
(display (local-file-absolute-file-name debugging-hello-world))
(display "\n")

(define drv (with-store store
           (run-with-store store
             (gexp->derivation "my-source" #~(symlink #$debugging-hello-world #$output)))))

(display "Hello world drv: ")

(unless (with-store store (build-derivations store (list drv)))
  (display "Error! Couldn't build!"))

(display drv)
(display "\n")
(display "Path: ")
(display (derivation->output-path drv))
(display "\n")