~ruther/guix-local: build: dub-build-system: Make builds reproducible.

6a1a69679d8ed90b2a6281508d4760c0e9337e78 — Danny Milosavljevic 8 years ago 431703f

build: dub-build-system: Make builds reproducible.

* guix/build/dub-build-system.scm (build): Make reproducible.
(check): Make reproducible.

patch browse .tar.gz

1 files changed, 10 insertions(+), 2 deletions(-)

M guix/build/dub-build-system.scm

M guix/build/dub-build-system.scm => guix/build/dub-build-system.scm +10 -2

@@ 91,11 91,19 @@
           (grep* "sourceLibrary" "dub.sdl") ; note: format is different!
           (grep* "sourceLibrary" "dub.json"))
     #t
-    (zero? (apply system* `("dub" "build" ,@dub-build-flags)))))
+    (let ((status (zero? (apply system* `("dub" "build" ,@dub-build-flags)))))
+      (substitute* ".dub/dub.json"
+        (("\"lastUpgrade\": \"[^\"]*\"")
+         "\"lastUpgrade\": \"1970-01-01T00:00:00.0000000\""))
+      status)))
 
 (define* (check #:key tests? #:allow-other-keys)
   (if tests?
-    (zero? (system* "dub" "test"))
+    (let ((status (zero? (system* "dub" "test"))))
+      (substitute* ".dub/dub.json"
+        (("\"lastUpgrade\": \"[^\"]*\"")
+         "\"lastUpgrade\": \"1970-01-01T00:00:00.0000000\""))
+      status)
     #t))
 
 (define* (install #:key inputs outputs #:allow-other-keys)