nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

* guix/build/dub-build-system.scm (build): Make reproducible.
(check): Make reproducible.
This commit is contained in:
Danny Milosavljevic 2017-12-31 00:29:59 +01:00
parent 431703ffd0
commit 6a1a69679d
No known key found for this signature in database
GPG Key ID: E71A35542C30BAA5
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
guix/build/dub-build-system.scm
View File

@ -91,11 +91,19 @@
(grep* "sourceLibrary" "dub.sdl") ; note: format is different! (grep* "sourceLibrary" "dub.sdl") ; note: format is different!
(grep* "sourceLibrary" "dub.json")) (grep* "sourceLibrary" "dub.json"))
#t #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) (define* (check #:key tests? #:allow-other-keys)
(if tests? (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)) #t))
(define* (install #:key inputs outputs #:allow-other-keys) (define* (install #:key inputs outputs #:allow-other-keys)