aboutsummaryrefslogtreecommitdiff
path: root/tests/guix-time-machine.sh
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2024-03-25 16:26:48 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2024-03-25 16:26:48 +0100
commit01d7ce85c89bc25876538f191be6bed4226d1593 (patch)
treecc2b2832692e0affbcbe7ed01934f81b31cabfe3 /tests/guix-time-machine.sh
parente2f408030dfc442797054640c6ff28ad1596b4c9 (diff)
downloadguix-01d7ce85c89bc25876538f191be6bed4226d1593.tar.gz
guix-01d7ce85c89bc25876538f191be6bed4226d1593.zip
gnu: nuspell: Update to 5.1.4.
* gnu/packages/enchant.scm (nuspell): Update to 5.1.4. [native-inputs]: Use CATCH2-3. Remove comment about RONN, which is no longer used. Change-Id: I62fa0568dacde29bef5065b2ee23c060373727cf
Diffstat (limited to 'tests/guix-time-machine.sh')
0 files changed, 0 insertions, 0 deletions
ad-path file))))) (define* (home-environment-with-provenance he #:optional (config-file (home-environment-configuration-file he))) "Return a variant of HE that stores its own provenance information, including CONFIG-FILE, if available. This is achieved by adding an instance of HOME-PROVENANCE-SERVICE-TYPE to its services." (home-environment (inherit he) (services (cons (service home-provenance-service-type config-file) (home-environment-user-services he))))) (define-gexp-compiler (home-environment-compiler (he <home-environment>) system target) ((store-lift (lambda (store) (run-with-store store (home-environment-derivation he) #:system system #:target target))))) (define %profile-generation-rx ;; Regexp that matches profile generation. (make-regexp "(.*)-([0-9]+)-link$")) (define (home-generation-base file) "If FILE is a Home generation GC root such as \"guix-home-42-link\", return its corresponding base---e.g., \"guix-home\". Otherwise return #f. This is similar to the 'generation-profile' procedure but applied to Home generations." (match (regexp-exec %profile-generation-rx file) (#f #f) (m (let ((profile (match:substring m 1))) ;; Distinguish from a "real" profile and from a system generation. (and (file-exists? (string-append profile "/on-first-login")) (file-exists? (string-append profile "/profile/manifest")) profile)))))