me
/
guix
Archived
1
0
Fork 0
Code

services: pcscd: Use switch-symlinks from (guix build utils). 

switch-symlinks has been moved to (guix build utils). We need not duplicate it
anymore.

* gnu/services/security-token.scm (pcscd-activation): Use switch-symlinks
from (guix build utils).
master
Arun Isaac 2022-06-13 17:07:02 +05:30
parent 8452fdaccf
commit 037bfd8545
No known key found for this signature in database
GPG Key ID: 2E25EE8B61802BB3
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnu/services/security-token.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2018, 2022 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re> ;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
;;; ;;;
@ -74,12 +74,7 @@
'((guix build utils))) '((guix build utils)))
#~(begin #~(begin
(use-modules (guix build utils)) (use-modules (guix build utils))
;; XXX: We can't use (guix utils) because it requires a
;; dynamically-linked Guile, hence the duplicate switch-symlinks.
(define (switch-symlinks link target)
(let ((pivot (string-append link ".new")))
(symlink target pivot)
(rename-file pivot link)))
(mkdir-p "/var/lib") (mkdir-p "/var/lib")
(switch-symlinks "/var/lib/pcsc" (switch-symlinks "/var/lib/pcsc"
#$(directory-union #$(directory-union