gnu: 389-ds-base: Fix build.

* gnu/packages/openldap.scm (389-ds-base)[source]: Add snippet.
[inputs]: Add libxcrypt.

Change-Id: I5ddb30e8a0ae23e7795a0a9a9e3f00b48379e3e8

gnu/packages/openldap.scm

@@ -31,6 +31,7 @@
   #:use-module (gnu packages bash)
   #:use-module (gnu packages check)
   #:use-module (gnu packages compression)
+  #:use-module (gnu packages crypto)
   #:use-module (gnu packages cyrus-sasl)
   #:use-module (gnu packages databases)
   #:use-module (gnu packages dbm)
@@ -223,7 +224,15 @@ servers from Python programs.")
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "1sdvfbjfg0091f47562gw3gdc2vgvvhyhdi21lrpwnw9lqc8xdxk"))))
+                "1sdvfbjfg0091f47562gw3gdc2vgvvhyhdi21lrpwnw9lqc8xdxk"))
+              (modules '((guix build utils)))
+              (snippet
+               ;; Put '#define f_type' after '#include <sys/statvfs.h>' to
+               ;; avoid name conflict.
+               '(substitute* "ldap/servers/slapd/slap.h"
+                  (("#include <sys/types\\.h>")
+                   "#include <sys/types.h>
+#include <sys/statvfs.h>")))))
     (build-system gnu-build-system)
     (arguments
      (list
@@ -331,6 +340,7 @@ servers from Python programs.")
            libevent
            libselinux
            linux-pam
+           libxcrypt
            lmdb
            mit-krb5
            net-snmp