ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

build: minify-build-system: Fail to install empty files.

Browse source 
* guix/build/minify-build-system.scm (install): Produce an error if the
minified file is zero bytes.
This commit is contained in:
Efraim Flashner 2020-05-06 11:27:48 +03:00
parent 843e772051
commit 5b77e9ca14
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/build/minify-build-system.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; This file is part of GNU Guix.
;;;
@ -54,8 +55,12 @@ (define* (install #:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(js (string-append out "/share/javascript/")))
(mkdir-p js)
(for-each (cut install-file <> js)
(find-files "guix/build" "\\.min\\.js$")))
(for-each
(lambda (file)
(if (not (zero? (stat:size (stat file))))
(install-file file js)
(error "File is empty: " file)))
(find-files "guix/build" "\\.min\\.js$")))
#t)
(define %standard-phases