diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-10-27 11:18:53 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-10-27 13:48:52 +0200 |
| commit | 631fda7e90c5327cb365b785b221f37a899e8bce (patch) | |
| tree | d0a37a76aa6bd55d820ce29209c3bf52f45d0760 | |
| parent | 7d876afdd8648a481fd8736985cd3359086b0dfb (diff) | |
gnu: Add mdadm-static.
* gnu/packages/linux.scm (mdadm-static): New variable.
| -rw-r--r-- | gnu/packages/linux.scm | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index c959f62424..3db3a58a02 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -2374,6 +2374,35 @@ assemble, report on, and monitor arrays. It can also move spares between raid arrays when needed.") (license license:gpl2+))) +(define-public mdadm-static + (package + (inherit mdadm) + (name "mdadm-static") + (arguments + (substitute-keyword-arguments (package-arguments mdadm) + ((#:make-flags flags) + `(cons "LDFLAGS = -static" ,flags)) + ((#:phases phases) + `(modify-phases ,phases + (add-after 'install 'remove-cruft + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (precious? (lambda (file) + (member file '("." ".." "sbin")))) + (directories (scandir out (negate precious?)))) + (with-directory-excursion out + (for-each delete-file-recursively directories) + (remove-store-references "sbin/mdadm") + (delete-file "sbin/mdmon") + #t)))))) + ((#:modules modules %gnu-build-system-modules) + `((ice-9 ftw) ,@modules)) + ((#:strip-flags _ '()) + ''("--strip-all")) ;strip a few extra KiB + ((#:allowed-references _ '("out")) + '("out")))) ;refer only self + (synopsis "Statically-linked 'mdadm' command for use in an initrd"))) + (define-public libaio (package (name "libaio") |