04/04: gnu: e2fsck-static: Use really statically-linked executables.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit e48977e755767232a3ce3f0dc3f9d44c735c5ffe
Author: Ludovic Courtès <address@hidden>
Date:   Fri Jan 16 21:07:31 2015 +0100

    gnu: e2fsck-static: Use really statically-linked executables.
    
    * gnu/packages/linux.scm (e2fsprogs/static): New variable.
      (e2fsck/static): Use it in 'inputs'.
---
 gnu/packages/linux.scm |   13 ++++++++++++-
 1 files changed, 12 insertions(+), 1 deletions(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index f8bb6e2..4973b27 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -562,6 +562,17 @@ slabtop, and skill.")
                    lgpl2.0                        ; libext2fs
                    x11))))                        ; libuuid
 
+(define e2fsprogs/static
+  (static-package
+   (package (inherit e2fsprogs)
+            (arguments
+             ;; Do not build shared libraries.
+             (substitute-keyword-arguments (package-arguments e2fsprogs)
+               ((#:configure-flags _)
+                '(list "--disable-blkid"))
+               ((#:make-flags _)
+                '(list)))))))
+
 (define-public e2fsck/static
   (package
     (name "e2fsck-static")
@@ -587,7 +598,7 @@ slabtop, and skill.")
                          (remove-store-references file)
                          (chmod file #o555))
                        (scandir source (cut string-prefix? "fsck." <>))))))))
-    (inputs `(("e2fsprogs" ,(static-package e2fsprogs))))
+    (inputs `(("e2fsprogs" ,e2fsprogs/static)))
     (synopsis "Statically-linked fsck.* commands from e2fsprogs")
     (description
      "This package provides statically-linked command of fsck.ext[234] taken