TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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