Browse Source

gnu: current-guix: Delay effectful bits.

* gnu/packages/package-management.scm (current-guix): Delay 'repository-root'.
gn-latest-20200428
Ludovic Courtès 2 years ago
parent
commit
863519f660
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
1 changed files with 5 additions and 5 deletions
  1. +5
    -5
      gnu/packages/package-management.scm

+ 5
- 5
gnu/packages/package-management.scm View File

@ -410,10 +410,10 @@ generated file."
(make-parameter #f))
(define-public current-guix
(let* ((repository-root (canonicalize-path
(string-append (current-source-directory)
"/../..")))
(select? (delay (or (git-predicate repository-root)
(let* ((repository-root (delay (canonicalize-path
(string-append (current-source-directory)
"/../.."))))
(select? (delay (or (git-predicate (force repository-root))
source-file?))))
(lambda ()
"Return a package representing Guix built from the current source tree.
@ -423,7 +423,7 @@ out) and returning a package that uses that as its 'source'."
(package
(inherit guix)
(version (string-append (package-version guix) "+"))
(source (local-file repository-root "guix-current"
(source (local-file (force repository-root) "guix-current"
#:recursive? #t
#:select? (force select?))))))))


Loading…
Cancel
Save