@@ -20,6 +20,7 @@ (define-module (gnu system pam)
#:use-module (guix records)
#:use-module (guix derivations)
#:use-module (guix gexp)
+ #:use-module (guix utils)
#:use-module (gnu services)
#:use-module (gnu system setuid)
#:use-module (ice-9 match)
@@ -377,12 +378,15 @@ (define (extend-configuration initial extensions)
(define pam-root-service-type
(service-type (name 'pam)
(extensions
- (list (service-extension
- setuid-program-service-type
- (lambda (_)
- (list (file-like->setuid-program
- (file-append linux-pam "/sbin/unix_chkpwd")))))
- (service-extension etc-service-type /etc-entry)))
+ (cons (service-extension etc-service-type /etc-entry)
+ (if (target-linux? (or (%current-target-system)
+ (%current-system)))
+ (list (service-extension
+ setuid-program-service-type
+ (lambda (_)
+ (list (file-like->setuid-program
+ (file-append linux-pam "/sbin/unix_chkpwd"))))))
+ '())))
;; Arguments include <pam-service> as well as procedures.
(compose concatenate)