02/02: gnu: netpbm: Remove timestamps from build products.

[Ludovic Courtès]

civodul pushed a commit to branch core-updates
in repository guix.

commit 56501d3b1727cbafed25be4268c4e6c9387088d9
Author: Ludovic Courtès <address@hidden>
Date:   Fri Jun 17 15:41:48 2016 +0200

    gnu: netpbm: Remove timestamps from build products.
    
    * gnu/packages/netpbm.scm (netpbm)[source]: Patch
    "buildtools/stamp-date".
---
 gnu/packages/netpbm.scm |   13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/netpbm.scm b/gnu/packages/netpbm.scm
index 20ca87b..cd0c3d9 100644
--- a/gnu/packages/netpbm.scm
+++ b/gnu/packages/netpbm.scm
@@ -55,9 +55,8 @@
             (file-name (string-append name "-" version "-checkout"))
             (modules '((guix build utils)))
             (snippet
-             ;; Remove non-FSDG-compliant code.
              '(begin
-                (use-modules (guix build utils))
+                ;; Remove non-FSDG-compliant code.
 
                 (define-syntax drop
                   (syntax-rules (in)
@@ -85,7 +84,15 @@
                 (drop "pbmto4425" "pbmtoln03" "pbmtolps" "pbmtopk" "pktopbm"
                       in "converter/pbm")
                 (drop "spottopgm" in "converter/pgm")
-                (drop "ppmtopjxl" in "converter/ppm")))))
+                (drop "ppmtopjxl" in "converter/ppm")
+
+                ;; Remove timestamps from the generated code.
+                (substitute* "buildtools/stamp-date"
+                  (("^DATE=.*")
+                   "DATE=\"Thu Jan 01 00:00:00+0000 1970\"\n")
+                  (("^USER=.*")
+                   "USER=Guix\n"))))))
+
    (build-system gnu-build-system)
    (inputs `(("ghostscript" ,ghostscript)
              ("libjpeg" ,libjpeg)