build-system/dub: Avoid usage of (guix build syscalls).
* guix/build/dub-build-system.scm (configure): Use MKDTEMP instead of MKDTEMP!.
This commit is contained in:
parent
8b2a9be465
commit
bdfa795c98
@ -20,7 +20,6 @@
|
|||||||
|
|
||||||
(define-module (guix build dub-build-system)
|
(define-module (guix build dub-build-system)
|
||||||
#:use-module ((guix build gnu-build-system) #:prefix gnu:)
|
#:use-module ((guix build gnu-build-system) #:prefix gnu:)
|
||||||
#:use-module (guix build syscalls)
|
|
||||||
#:use-module (guix build utils)
|
#:use-module (guix build utils)
|
||||||
#:use-module (ice-9 popen)
|
#:use-module (ice-9 popen)
|
||||||
#:use-module (ice-9 rdelim)
|
#:use-module (ice-9 rdelim)
|
||||||
@ -52,7 +51,7 @@
|
|||||||
to do this (instead of just using /gnu/store as the directory) because we want
|
to do this (instead of just using /gnu/store as the directory) because we want
|
||||||
to hide the libraries in subdirectories lib/dub/... instead of polluting the
|
to hide the libraries in subdirectories lib/dub/... instead of polluting the
|
||||||
user's profile root."
|
user's profile root."
|
||||||
(let* ((dir (mkdtemp! "/tmp/dub.XXXXXX"))
|
(let* ((dir (mkdtemp "/tmp/dub.XXXXXX"))
|
||||||
(vendor-dir (string-append dir "/vendor")))
|
(vendor-dir (string-append dir "/vendor")))
|
||||||
(setenv "HOME" dir)
|
(setenv "HOME" dir)
|
||||||
(mkdir vendor-dir)
|
(mkdir vendor-dir)
|
||||||
|
Loading…
Reference in New Issue
Block a user