diff options
| author | Danny Milosavljevic <dannym@scratchpost.org> | 2017-12-31 00:29:59 +0100 |
|---|---|---|
| committer | Danny Milosavljevic <dannym@scratchpost.org> | 2017-12-31 00:29:59 +0100 |
| commit | 6a1a69679d8ed90b2a6281508d4760c0e9337e78 (patch) | |
| tree | e995b73b379406bb0a5ea1eebd4a3341a255653e | |
| parent | 431703ffd022e77c50e09ceedfa110a7eb7e4ee5 (diff) | |
| download | guix-6a1a69679d8ed90b2a6281508d4760c0e9337e78.tar.gz | |
build: dub-build-system: Make builds reproducible.
* guix/build/dub-build-system.scm (build): Make reproducible. (check): Make reproducible.
| -rw-r--r-- | guix/build/dub-build-system.scm | 12 |
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) |