From 9297065a2b2151636194b2c91e957a3ec0b33532 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= <iyzsong@gmail.com>
Date: Sun, 23 Aug 2015 06:33:59 +0800
Subject: [PATCH] system: Make PAM store SHA-512 encrypted passwords in
 /etc/shadow.

Fixes <http://bugs.gnu.org/21318>.

* gnu/system/linux.scm (unix-pam-service)[password]: Add 'sha512' and
  'shadow' to arguments.
---
 gnu/system/linux.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/gnu/system/linux.scm b/gnu/system/linux.scm
index aaaa8c6dee..7461a4a61f 100644
--- a/gnu/system/linux.scm
+++ b/gnu/system/linux.scm
@@ -148,7 +148,11 @@ should be the name of a file used as the message-of-the-day."
                           (module "pam_unix.so")
                           (arguments '("nullok")))
                          unix)))
-         (password (list unix))
+         (password (list (pam-entry
+                          (control "required")
+                          (module "pam_unix.so")
+                          ;; Store SHA-512 encrypted passwords in /etc/shadow.
+                          (arguments '("sha512" "shadow")))))
          (session (if motd
                       (list unix
                             (pam-entry