Subject: bug#31569: closed (Re: [bug#31569] [PATCH] gnu: ntfs-3g: Link 'mount.ntfs' to 'mount.ntfs-3g'.)

From: [email-masked] (GNU bug Tracking System)
Date: Thu, 24 May 2018 20:18:02 +0000

Your bug report

#31569: [PATCH] gnu: ntfs-3g: Link 'mount.ntfs' to 'mount.ntfs-3g'.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
31569: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=31569
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: [bug#31569] [PATCH] gnu: ntfs-3g: Link 'mount.ntfs' to 'mount.ntfs-3g'.
From: [email-masked] (Ludovic Courtès)
To: Pierre Neidhardt <[email-masked]>
Cc: [email-masked]
Date: Thu, 24 May 2018 22:17:47 +0200
List-Id: <debbugs-submit.debbugs.gnu.org>

Pierre Neidhardt <[email-masked]> skribis:

> * gnu/packages/linux.scm (ntfs-3g)[arguments]: Add #:phases.

Makes a lot of sense.  Applied with the change below, thanks!

Ludo’.

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index f2a9ef0f6..40b4ee09c 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -3443,7 +3443,7 @@ from userspace.")
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
                     (sbin (string-append out "/sbin")))
-               (symlink (string-append sbin "/mount.ntfs-3g")
+               (symlink "mount.ntfs-3g"
                         (string-append sbin "/mount.ntfs"))))))))
     (home-page "https://www.tuxera.com/community/open-source-ntfs-3g/")
     (synopsis "Read-write access to NTFS file systems")

Subject: [PATCH] gnu: ntfs-3g: Link 'mount.ntfs' to 'mount.ntfs-3g'.
From: Pierre Neidhardt <[email-masked]>
To: [email-masked]
Date: Wed, 23 May 2018 14:42:36 +0200
List-Id: <debbugs-submit.debbugs.gnu.org>

* gnu/packages/linux.scm (ntfs-3g)[arguments]: Add #:phases.
---
 gnu/packages/linux.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 0c58b90f1..1f9f45799 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -3439,7 +3439,19 @@ from userspace.")
                                "--with-fuse=external" ;use our own FUSE
                                "--enable-mount-helper"
                                "--enable-posix-acls"
-                               "--enable-xattr-mappings")))
+                               "--enable-xattr-mappings")
+       #:phases
+       (modify-phases %standard-phases
+         ;; If users install ntfs-3g, they probably want to make it the
+         ;; default driver as well, so we opt for sensible defaults and link
+         ;; mount.ntfs to mount.ntfs-3g.  (libmount tries to run mount.ntfs to
+         ;; mount NTFS filesystems.)
+         (add-after 'install 'install-link
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (sbin (string-append out "/sbin")))
+               (symlink (string-append sbin "/mount.ntfs-3g")
+                        (string-append sbin "/mount.ntfs"))))))))
     (home-page "https://www.tuxera.com/community/open-source-ntfs-3g/")
     (synopsis "Read-write access to NTFS file systems")
     (description
-- 
2.17.0