me
/
guix
Archived
1
0
Fork 0
Code

gnu: httpfs2: Use G-expressions. 

* gnu/packages/file-systems.scm (httpfs2)[arguments]:
Rewrite as G-expressions.
master
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 @@ Extensible File Allocation Table} file systems. Included are
(inputs (inputs
(list fuse gnutls)) (list fuse gnutls))
(arguments (arguments
`(#:phases (list #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure) ; no configure script (delete 'configure) ; no configure script
(replace 'install (replace 'install
;; There's no ‘install’ target. Install all variants manually. ;; There's no ‘install’ target. Install all variants manually.
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let* ((bin (string-append #$output "/bin"))
(bin (string-append out "/bin")) (man1 (string-append #$output "/share/man/man1")))
(man1 (string-append out "/share/man/man1"))) (mkdir-p bin)
(mkdir-p bin) (mkdir-p man1)
(mkdir-p man1) (for-each
(for-each (lambda (variant)
(lambda (variant) (let ((man1-page (string-append variant ".1")))
(let ((man1-page (string-append variant ".1"))) (install-file variant bin)
(install-file variant bin) (install-file man1-page man1)))
(install-file man1-page man1))) (list "httpfs2"
(list "httpfs2" "httpfs2-mt"
"httpfs2-mt" "httpfs2-ssl"
"httpfs2-ssl" "httpfs2-ssl-mt"))))))
"httpfs2-ssl-mt"))) #:make-flags
#t))) #~(list "CC=gcc")
#:make-flags (list "CC=gcc") #:parallel-build? #f ; can result in missing man pages
#:parallel-build? #f ; can result in missing man pages #:tests? #f)) ; no tests
#:tests? #f)) ; no tests
(home-page "https://sourceforge.net/projects/httpfs/") (home-page "https://sourceforge.net/projects/httpfs/")
(synopsis "Mount remote files over HTTP") (synopsis "Mount remote files over HTTP")
(description "httpfs2 is a @code{fuse} file system for mounting any (description "httpfs2 is a @code{fuse} file system for mounting any