diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-07-23 02:00:00 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-07-23 02:00:00 +0200 |
| commit | 76aa16ab61e10bd82fa2e4b42e0fb6a672dc6887 (patch) | |
| tree | 974f4cffa5e2f240dc2a8d376e22f4b7d21bf80c /gnu/packages/linux.scm | |
| parent | 2c66435a40080f6acd773169d1e9ba45ed52de7f (diff) | |
gnu: unionfs-fuse-static: Update package style.
* gnu/packages/linux.scm (unionfs-fuse/static)[source]:
Rewrite snippet as a G-expression.
[arguments]: Likewise. Don't explicitly return #t from phases.
[inputs]: Remove input labels.
Diffstat (limited to 'gnu/packages/linux.scm')
| -rw-r--r-- | gnu/packages/linux.scm | 54 |
1 files changed, 27 insertions, 27 deletions
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 88ee1eafc4..47229492d8 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -3889,34 +3889,34 @@ UnionFS-FUSE additionally supports copy-on-write.") (package (inherit unionfs-fuse) (synopsis "User-space union file system (statically linked)") (name (string-append (package-name unionfs-fuse) "-static")) - (source (origin (inherit (package-source unionfs-fuse)) - (modules '((guix build utils))) - (snippet - '(begin - ;; Add -ldl to the libraries, because libfuse.a needs that. - (substitute* "src/CMakeLists.txt" - (("target_link_libraries(.*)\\)" _ libs) - (string-append "target_link_libraries" - libs " dl)"))) - #t)))) + (source + (origin + (inherit (package-source unionfs-fuse)) + (modules '((guix build utils))) + (snippet + #~(begin + ;; Add -ldl to the libraries, because libfuse.a needs that. + (substitute* "src/CMakeLists.txt" + (("target_link_libraries(.*)\\)" _ libs) + (string-append "target_link_libraries" + libs " dl)"))))))) (arguments - '(#:tests? #f - #:configure-flags '("-DCMAKE_EXE_LINKER_FLAGS=-static") - #:phases - (modify-phases %standard-phases - (add-after 'install 'post-install - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (exe (string-append out "/bin/unionfs"))) - ;; By default, 'unionfs' keeps references to - ;; $glibc/share/locale and similar stuff. Remove them. - (remove-store-references exe) - - ;; 'unionfsctl' has references to glibc as well. Since - ;; we don't need it, remove it. - (delete-file (string-append out "/bin/unionfsctl")) - #t)))))) - (inputs `(("fuse" ,fuse-static))))) + (list + #:tests? #f + #:configure-flags + #~(list "-DCMAKE_EXE_LINKER_FLAGS=-static") + #:phases + #~(modify-phases %standard-phases + (add-after 'install 'post-install + (lambda _ + ;; By default, 'unionfs' keeps references to + ;; $glibc/share/locale and similar stuff. Remove them. + (remove-store-references (string-append #$output "/bin/unionfs")) + + ;; 'unionfsctl' has references to glibc as well. Since + ;; we don't need it, remove it. + (delete-file (string-append #$output "/bin/unionfsctl"))))))) + (inputs (list fuse-static)))) (define-public sshfs (package |