summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2022-05-23 18:08:51 +0300
committerEfraim Flashner <efraim@flashner.co.il>2022-05-23 21:59:48 +0300
commit83fd96ed389801baa16d6e995499d86ef34f87d5 (patch)
tree6bc46dfa9a8b1c975ba4163e6728b9e322f5d4d0 /gnu
parent658525f6ecdfdf4929910a5a45d33150d0e43f6e (diff)
gnu: debootstrap: Remove trailing booleans.
* gnu/packages/debian.scm (debootstrap)[arguments]: Remove trailing #t from phases.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/packages/debian.scm9
1 files changed, 3 insertions, 6 deletions
diff --git a/gnu/packages/debian.scm b/gnu/packages/debian.scm
index 6b471d6cc57..22f51d2db6b 100644
--- a/gnu/packages/debian.scm
+++ b/gnu/packages/debian.scm
@@ -233,22 +233,19 @@ contains the archive keys used for that.")
233 (("PATH=/sbin:/usr/sbin:/bin:/usr/bin") 233 (("PATH=/sbin:/usr/sbin:/bin:/usr/bin")
234 "PATH=$PATH:/sbin:/usr/sbin:/bin:/usr/bin")) 234 "PATH=$PATH:/sbin:/usr/sbin:/bin:/usr/bin"))
235 (substitute* (find-files "scripts" ".") 235 (substitute* (find-files "scripts" ".")
236 (("/usr/share/zoneinfo") (string-append tzdata "/share/zoneinfo"))) 236 (("/usr/share/zoneinfo") (string-append tzdata "/share/zoneinfo"))))))
237 #t)))
238 (add-after 'install 'install-man-file 237 (add-after 'install 'install-man-file
239 (lambda* (#:key outputs #:allow-other-keys) 238 (lambda* (#:key outputs #:allow-other-keys)
240 (let ((out (assoc-ref outputs "out"))) 239 (let ((out (assoc-ref outputs "out")))
241 (install-file "debootstrap.8" 240 (install-file "debootstrap.8"
242 (string-append out "/share/man/man8")) 241 (string-append out "/share/man/man8")))))
243 #t)))
244 (add-after 'install 'wrap-executable 242 (add-after 'install 'wrap-executable
245 (lambda* (#:key outputs #:allow-other-keys) 243 (lambda* (#:key outputs #:allow-other-keys)
246 (let ((debootstrap (string-append (assoc-ref outputs "out") 244 (let ((debootstrap (string-append (assoc-ref outputs "out")
247 "/sbin/debootstrap")) 245 "/sbin/debootstrap"))
248 (path (getenv "PATH"))) 246 (path (getenv "PATH")))
249 (wrap-program debootstrap 247 (wrap-program debootstrap
250 `("PATH" ":" prefix (,path))) 248 `("PATH" ":" prefix (,path)))))))
251 #t))))
252 #:make-flags (list (string-append "DESTDIR=" (assoc-ref %outputs "out"))) 249 #:make-flags (list (string-append "DESTDIR=" (assoc-ref %outputs "out")))
253 #:tests? #f)) ; no tests 250 #:tests? #f)) ; no tests
254 (inputs 251 (inputs