nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: nfs-utils: Adjust indentation. 

* gnu/packages/nfs.scm (nfs-utils): Re-indent.
This commit is contained in:
Leo Famulari 2017-05-07 16:33:06 -04:00
parent a472f0d075
commit d14b8dbb74
No known key found for this signature in database
GPG Key ID: 2646FA30BACA7F08
1 changed files with 35 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
gnu/packages/nfs.scm
View File

@ -57,43 +57,43 @@
,(string-append "--with-start-statd=" ,(string-append "--with-start-statd="
(assoc-ref %outputs "out") "/sbin/start-statd") (assoc-ref %outputs "out") "/sbin/start-statd")
,(string-append "--with-krb5=" (assoc-ref %build-inputs "mit-krb5"))) ,(string-append "--with-krb5=" (assoc-ref %build-inputs "mit-krb5")))
#:phases (modify-phases %standard-phases #:phases
(add-before (modify-phases %standard-phases
'configure 'adjust-command-file-names (add-before 'configure 'adjust-command-file-names
(lambda _ (lambda _
;; Remove assumptions of FHS from start-statd script ;; Remove assumptions of FHS from start-statd script
(substitute* `("utils/statd/start-statd") (substitute* `("utils/statd/start-statd")
(("^PATH=.*") "") (("^PATH=.*") "")
(("^flock") (("^flock")
(string-append (string-append
(assoc-ref %build-inputs "util-linux") (assoc-ref %build-inputs "util-linux")
"/bin/flock")) "/bin/flock"))
(("^exec rpc.statd") (("^exec rpc.statd")
(string-append "exec " (string-append "exec "
(assoc-ref %outputs "out") "/sbin/rpc.statd"))) (assoc-ref %outputs "out") "/sbin/rpc.statd")))
;; This hook tries to write to /var ;; This hook tries to write to /var
;; That needs to be done by a service too. ;; That needs to be done by a service too.
(substitute* `("Makefile.in") (substitute* `("Makefile.in")
(("^install-data-hook:") (("^install-data-hook:")
"install-data-hook-disabled-for-guix:")) "install-data-hook-disabled-for-guix:"))
;; Replace some hard coded paths. ;; Replace some hard coded paths.
(substitute* `("utils/nfsd/nfssvc.c") (substitute* `("utils/nfsd/nfssvc.c")
(("/bin/mount") (("/bin/mount")
(string-append (string-append
(assoc-ref %build-inputs "util-linux") (assoc-ref %build-inputs "util-linux")
"/bin/mount"))) "/bin/mount")))
(substitute* `("utils/statd/statd.c") (substitute* `("utils/statd/statd.c")
(("/usr/sbin/") (("/usr/sbin/")
(string-append (assoc-ref %outputs "out") "/sbin/"))) (string-append (assoc-ref %outputs "out") "/sbin/")))
(substitute* `("utils/osd_login/Makefile.in" (substitute* `("utils/osd_login/Makefile.in"
"utils/mount/Makefile.in" "utils/mount/Makefile.in"
"utils/nfsdcltrack/Makefile.in") "utils/nfsdcltrack/Makefile.in")
(("^sbindir = /sbin") (("^sbindir = /sbin")
(string-append "sbindir = " (string-append "sbindir = "
(assoc-ref %outputs "out") "/sbin"))) (assoc-ref %outputs "out") "/sbin")))
#t))))) #t)))))
(inputs `(("libevent" ,libevent) (inputs `(("libevent" ,libevent)
("libnfsidmap" ,libnfsidmap) ("libnfsidmap" ,libnfsidmap)
("sqlite" ,sqlite) ("sqlite" ,sqlite)