~ruther/guix-local

b191f0a6c50f2a7d47037ef8509d0351f5a2646e — Leo Famulari 9 years ago 94b28ae
services: guix: Support building in a directory besides '/tmp'.

* gnu/services/base.scm (<guix-configuration>)[tmpdir]: New field.
(guix-shepherd-service): Use 'tmpdir' in #:environment-variables.
* doc/guix.texi (Base Services)[guix-configuration]: Document it.
2 files changed, 9 insertions(+), 1 deletions(-)

M doc/guix.texi
M gnu/services/base.scm
M doc/guix.texi => doc/guix.texi +3 -0
@@ 8615,6 8615,9 @@ The lsof package to use.
The HTTP proxy used for downloading fixed-output derivations and
substitutes.

@item @code{tmpdir} (default: @code{#f})
A directory path where the @command{guix-daemon} will perform builds.

@end table
@end deftp


M gnu/services/base.scm => gnu/services/base.scm +6 -1
@@ 1116,6 1116,8 @@ failed to register hydra.gnu.org public key: ~a~%" status))))))))
  (lsof             guix-configuration-lsof       ;<package>
                    (default lsof))
  (http-proxy       guix-http-proxy               ;string | #f
                    (default #f))
  (tmpdir           guix-tmpdir                   ;string | #f
                    (default #f)))

(define %default-guix-configuration


@@ 1127,7 1129,7 @@ failed to register hydra.gnu.org public key: ~a~%" status))))))))
    (($ <guix-configuration> guix build-group build-accounts
                             authorize-key? keys
                             use-substitutes? substitute-urls extra-options
                             log-file lsof http-proxy)
                             log-file lsof http-proxy tmpdir)
     (list (shepherd-service
            (documentation "Run the Guix daemon.")
            (provision '(guix-daemon))


@@ 1147,6 1149,9 @@ failed to register hydra.gnu.org public key: ~a~%" status))))))))
                (list (string-append "PATH=" #$lsof "/bin")
                      #$@(if http-proxy
                             (list (string-append "http_proxy=" http-proxy))
                             '())
                      #$@(if tmpdir
                             (list (string-append "TMPDIR=" tmpdir))
                             '()))

                #:log-file #$log-file))