ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-27 21:49:34 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: mdadm: Use G-expressions.

Browse source 
* gnu/packages/linux.scm (mdadm)[arguments]:
Rewrite as G-expressions.
[inputs]: Move under arguments.  Remove input labels.
This commit is contained in:
Tobias Geerinckx-Rice 2022-01-05 06:13:57 +01:00
parent 3d7a1b84c5
commit f16b6fd970
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 29 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
gnu/packages/linux.scm
View file

@ -5032,36 +5032,36 @@ (define-public mdadm
(base32 (base32
"07ghmibmbnkdy91ng87zdllzicm299l20dhs9m5bfjw6f1b22726")))) "07ghmibmbnkdy91ng87zdllzicm299l20dhs9m5bfjw6f1b22726"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs
`(("udev" ,eudev)))
(arguments (arguments
`(#:make-flags (let ((out (assoc-ref %outputs "out"))) (list #:make-flags
(list ,(string-append "CC=" (cc-for-target)) #~(list (string-append "CC=" #$(cc-for-target))
"INSTALL=install" "INSTALL=install"
"CHECK_RUN_DIR=0" "CHECK_RUN_DIR=0"
;; TODO: tell it where to find 'sendmail' ;; TODO: tell it where to find 'sendmail'
;; (string-append "MAILCMD=" <???> "/sbin/sendmail") ;; (string-append "MAILCMD=" <???> "/sbin/sendmail")
(string-append "BINDIR=" out "/sbin") (string-append "BINDIR=" #$output "/sbin")
(string-append "MANDIR=" out "/share/man") (string-append "MANDIR=" #$output "/share/man")
(string-append "UDEVDIR=" out "/lib/udev"))) (string-append "UDEVDIR=" #$output "/lib/udev"))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'build 'patch-program-paths (add-before 'build 'patch-program-paths
(lambda* (#:key native-inputs inputs #:allow-other-keys) (lambda* (#:key native-inputs inputs #:allow-other-keys)
(let ((coreutils (assoc-ref (or native-inputs inputs) (let ((coreutils (assoc-ref (or native-inputs inputs)
"coreutils"))) "coreutils")))
(substitute* "udev-md-raid-arrays.rules" (substitute* "udev-md-raid-arrays.rules"
(("/usr/bin/(readlink|basename)" all program) (("/usr/bin/(readlink|basename)" all program)
(string-append coreutils "/bin/" program)))))) (string-append coreutils "/bin/" program))))))
(add-before 'build 'remove-W-error (add-before 'build 'remove-W-error
(lambda _ (lambda _
;; We cannot build with -Werror on i686 due to a ;; We cannot build with -Werror on i686 due to a
;; 'sign-compare' warning in util.c. ;; 'sign-compare' warning in util.c.
(substitute* "Makefile" (substitute* "Makefile"
(("-Werror") "")))) (("-Werror") ""))))
(delete 'configure)) (delete 'configure))
;;tests must be done as root ;; Tests must be run as root.
#:tests? #f)) #:tests? #f))
(inputs
(list eudev))
(supported-systems (delete "i586-gnu" %supported-systems)) (supported-systems (delete "i586-gnu" %supported-systems))
(home-page "http://neil.brown.name/blog/mdadm") (home-page "http://neil.brown.name/blog/mdadm")
(synopsis "Tool for managing Linux Software RAID arrays") (synopsis "Tool for managing Linux Software RAID arrays")