[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: services: pcscd: Use switch-symlinks from (guix build utils).
From: |
guix-commits |
Subject: |
03/03: services: pcscd: Use switch-symlinks from (guix build utils). |
Date: |
Fri, 24 Jun 2022 16:29:47 -0400 (EDT) |
arunisaac pushed a commit to branch core-updates
in repository guix.
commit 037bfd85458dd0b32a6dd85b7c12e85e3dd716ae
Author: Arun Isaac <arunisaac@systemreboot.net>
AuthorDate: Mon Jun 13 17:07:02 2022 +0530
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).
---
gnu/services/security-token.scm | 9 ++-------
1 file changed, 2 insertions(+), 7 deletions(-)
diff --git a/gnu/services/security-token.scm b/gnu/services/security-token.scm
index 52afad84a6..2356273398 100644
--- a/gnu/services/security-token.scm
+++ b/gnu/services/security-token.scm
@@ -1,5 +1,5 @@
;;; 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 © 2021 Brice Waegeneire <brice@waegenei.re>
;;;
@@ -74,12 +74,7 @@
'((guix build utils)))
#~(begin
(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")
(switch-symlinks "/var/lib/pcsc"
#$(directory-union