summaryrefslogtreecommitdiff
path: root/gnu/system.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-03-10 18:07:48 +0100
committerLudovic Courtès <ludo@gnu.org>2015-03-10 18:07:48 +0100
commit11dddd8a3e559eff21b12db46d993b07b624ab15 (patch)
tree2dd1537f8d1cb34a72dcbf094620ae6df5afdf2a /gnu/system.scm
parentb9156ccc0882fb35fc6b3e109ed45c68a6d40fbf (diff)
downloadpatches-11dddd8a3e559eff21b12db46d993b07b624ab15.tar
patches-11dddd8a3e559eff21b12db46d993b07b624ab15.tar.gz
system: Don't compare <pam-service> objects with 'equal?'.
Fixes <http://bugs.gnu.org/20037>. Reported by 宋文武 <iyzsong@gmail.com> and Tomáš Čech. * gnu/system.scm (operating-system-etc-directory): Remove call to 'delete-duplicates'. * gnu/system/linux.scm (pam-services->directory)[builder]: Add call to 'delete-duplicates'.
Diffstat (limited to 'gnu/system.scm')
-rw-r--r--gnu/system.scm5
1 files changed, 2 insertions, 3 deletions
diff --git a/gnu/system.scm b/gnu/system.scm
index a51b176640..1a0aee41eb 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -511,9 +511,8 @@ export ASPELL_CONF=\"dict-dir $HOME/.guix-profile/lib/aspell\"
((services (operating-system-services os))
(pam-services ->
;; Services known to PAM.
- (delete-duplicates
- (append (operating-system-pam-services os)
- (append-map service-pam-services services))))
+ (append (operating-system-pam-services os)
+ (append-map service-pam-services services)))
(profile-drv (operating-system-profile os))
(skeletons (operating-system-skeletons os))
(/etc/hosts (or (operating-system-hosts-file os)