ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: httpfs2: Use G-expressions.

Browse source 
* gnu/packages/file-systems.scm (httpfs2)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-01-08 05:42:53 +01:00
parent ef58bc1524
commit f7f88a85d7
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 23 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
gnu/packages/file-systems.scm
View file

@ -586,30 +586,29 @@ (define-public httpfs2
(inputs
(list fuse gnutls))
(arguments
`(#:phases
(modify-phases %standard-phases
(delete 'configure) ; no configure script
(replace 'install
;; There's no ‘install’ target. Install all variants manually.
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(man1 (string-append out "/share/man/man1")))
(mkdir-p bin)
(mkdir-p man1)
(for-each
(lambda (variant)
(let ((man1-page (string-append variant ".1")))
(install-file variant bin)
(install-file man1-page man1)))
(list "httpfs2"
"httpfs2-mt"
"httpfs2-ssl"
"httpfs2-ssl-mt")))
#t)))
#:make-flags (list "CC=gcc")
#:parallel-build? #f ; can result in missing man pages
#:tests? #f)) ; no tests
(list #:phases
#~(modify-phases %standard-phases
(delete 'configure) ; no configure script
(replace 'install
;; There's no ‘install’ target. Install all variants manually.
(lambda _
(let* ((bin (string-append #$output "/bin"))
(man1 (string-append #$output "/share/man/man1")))
(mkdir-p bin)
(mkdir-p man1)
(for-each
(lambda (variant)
(let ((man1-page (string-append variant ".1")))
(install-file variant bin)
(install-file man1-page man1)))
(list "httpfs2"
"httpfs2-mt"
"httpfs2-ssl"
"httpfs2-ssl-mt"))))))
#:make-flags
#~(list "CC=gcc")
#:parallel-build? #f ; can result in missing man pages
#:tests? #f)) ; no tests
(home-page "https://sourceforge.net/projects/httpfs/")
(synopsis "Mount remote files over HTTP")
(description "httpfs2 is a @code{fuse} file system for mounting any