summaryrefslogtreecommitdiff
path: root/guix/build
diff options
context:
space:
mode:
authorDanny Milosavljevic <dannym@scratchpost.org>2017-12-31 00:29:59 +0100
committerDanny Milosavljevic <dannym@scratchpost.org>2017-12-31 00:29:59 +0100
commit6a1a69679d8ed90b2a6281508d4760c0e9337e78 (patch)
treee995b73b379406bb0a5ea1eebd4a3341a255653e /guix/build
parent431703ffd022e77c50e09ceedfa110a7eb7e4ee5 (diff)
build: dub-build-system: Make builds reproducible.
* guix/build/dub-build-system.scm (build): Make reproducible. (check): Make reproducible.
Diffstat (limited to 'guix/build')
-rw-r--r--guix/build/dub-build-system.scm12
1 files changed, 10 insertions, 2 deletions
diff --git a/guix/build/dub-build-system.scm b/guix/build/dub-build-system.scm
index b2cb02e639..432d51f6a7 100644
--- a/guix/build/dub-build-system.scm
+++ b/guix/build/dub-build-system.scm
@@ -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)