diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-08 11:23:45 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-08 12:32:14 +0200 |
| commit | 3e63c05b8e809a84490767841d84770f535f2f22 (patch) | |
| tree | 45083f36408c6e6b11e289269c1237f79064bece /update-channel.scm | |
| parent | d9b887149ae5e94c9eba4acc7fb5bec027d3114b (diff) | |
guix: restore the manual mdate when building it
Diffstat (limited to 'update-channel.scm')
| -rw-r--r-- | update-channel.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/update-channel.scm b/update-channel.scm index 26c0221..7169472 100644 --- a/update-channel.scm +++ b/update-channel.scm @@ -37,6 +37,7 @@ (hash #:getter hash) (version #:getter version) (release-date #:getter release-date) + (manual-mdate #:getter manual-mdate) (commit-id #:getter commit-id) (interned-modules #:getter interned-modules)) @@ -67,6 +68,8 @@ tmp-dirname (invoke bash "-c" (format #f "guix hash -r source > hash"))) (invoke bash "-c" (format #f "~a describe --tags --always ~a > ~a/version" git branch-name tmp-dirname)) + (invoke bash "-c" (format #f "~a log -n 1 --format=%cI ~a -- doc/disfluid.texi > ~a/manual-mdate" + git branch-name tmp-dirname)) (invoke bash "-c" (format #f "~a show -s --format=%cI ~a > ~a/release-date" git branch-name tmp-dirname)) (invoke bash "-c" (format #f "~a rev-parse ~a > ~a/commit-id" git branch-name tmp-dirname)) (slot-set! branch 'branch-name branch-name) @@ -76,6 +79,9 @@ (slot-set! branch 'version (call-with-input-file (string-append tmp-dirname "/version") read-line)) + (slot-set! branch 'manual-mdate + (call-with-input-file (string-append tmp-dirname "/manual-mdate") + read-line)) (slot-set! branch 'release-date (call-with-input-file (string-append tmp-dirname "/release-date") read-line)) @@ -120,6 +126,7 @@ `((define-public disfluid (disfluid-release #:version ,(version branch) + #:manual-mdate ,(manual-mdate branch) #:release-date ,(release-date branch) #:commit-id ,(commit-id branch) #:hash ,(hash branch)))) @@ -130,6 +137,7 @@ (disfluid-branch-snapshot #:branch-name ,(branch-name branch) #:version ,(version branch) + #:manual-mdate ,(manual-mdate branch) #:release-date ,(release-date branch) #:commit-id ,(commit-id branch) #:hash ,(hash branch))))))) |