diff mbox series

[bug#36605,02/12] guix: ant-build-system: use abs path as basedir

Message ID 20190711202644.32014-16-h.goebel@crazy-compilers.com
State Accepted
Headers show
Series None | expand

Commit Message

Hartmut Goebel July 11, 2019, 8:26 p.m. UTC 
This allows to chdir into some sub-project prior to building.

* guix/build/ant-build-system.scm (default-build.xml): Add parameter.
  (configure): Pass current directory as base-dir to default-build.xml.
---
 guix/build/ant-build-system.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)
diff mbox series

Patch

diff --git a/guix/build/ant-build-system.scm b/guix/build/ant-build-system.scm
index 651150d..f28182a 100644
--- a/guix/build/ant-build-system.scm
+++ b/guix/build/ant-build-system.scm
@@ -35,12 +35,12 @@ 
 ;;
 ;; Code:
 
-(define (default-build.xml src-dir jar-name prefix)
+(define (default-build.xml base-dir src-dir jar-name prefix)
   "Create a simple build.xml with standard targets for Ant."
   (call-with-output-file "build.xml"
     (lambda (port)
       (sxml->xml
-       `(project (@ (basedir ".")
+       `(project (@ (basedir ,base-dir)
                     (name ,jar-name))
                  (property (@ (name "classes.dir")
                               (value "${basedir}/build/classes")))
@@ -102,7 +102,7 @@  to the default GNU unpack strategy."
 (define* (configure #:key inputs outputs (jar-name #f)
                     (src-dir "src") #:allow-other-keys)
   (when jar-name
-    (default-build.xml src-dir jar-name
+    (default-build.xml (getcwd) src-dir jar-name
                        (string-append (assoc-ref outputs "out")
                                       "/share/java")))
   (setenv "JAVA_HOME" (assoc-ref inputs "jdk"))