diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2022-01-08 05:42:53 +0100 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2022-01-08 21:57:53 +0100 |
| commit | f7f88a85d771b131ac5a907112b874d68c6b8233 (patch) | |
| tree | 8b52f4149f9745a7adf5f1d8388553268de067f8 /gnu | |
| parent | ef58bc15247ab67966d88082349123199054c4f1 (diff) | |
| download | guix-f7f88a85d771b131ac5a907112b874d68c6b8233.tar.gz | |
gnu: httpfs2: Use G-expressions.
* gnu/packages/file-systems.scm (httpfs2)[arguments]: Rewrite as G-expressions.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/packages/file-systems.scm | 47 |
1 files changed, 23 insertions, 24 deletions
diff --git a/gnu/packages/file-systems.scm b/gnu/packages/file-systems.scm index bc1b02d481..6e74158dfc 100644 --- a/gnu/packages/file-systems.scm +++ b/gnu/packages/file-systems.scm @@ -586,30 +586,29 @@ Extensible File Allocation Table} file systems. Included are (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 |