diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-05-12 15:54:52 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-05-12 15:54:52 +0100 |
| commit | 8a7e623eeb6eef189652da3a4792ca494b80d920 (patch) | |
| tree | 94eef56773f804bcec04ea23df87fdbc6a74a445 | |
| parent | bf11e3327b64dbaaab9b6a688f2f1f9871c9d63d (diff) | |
doc: build.scm: Handle (current-source-directory) being #f.
Since this seems to be the case when the devel manual is being built on
bayfront.
* doc/build.scm: Use the current working directory as a fallback
if (current-source-directory) is #f, and log the value of root.
Change-Id: Ic43fd05a4a0822d9efb935069850f0a8cadd80aa
| -rw-r--r-- | doc/build.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/doc/build.scm b/doc/build.scm index 9088e99e53..2b081ae29c 100644 --- a/doc/build.scm +++ b/doc/build.scm @@ -1365,7 +1365,9 @@ by 'html-identifier-indexes'." (let* ((root (canonicalize-path - (string-append (current-source-directory) "/.."))) + (string-append (or (current-source-directory) + (string-append (getcwd) "/doc")) + "/.."))) (commit date (latest-commit+date root)) (version (or (getenv "GUIX_MANUAL_VERSION") (string-take commit 7))) @@ -1412,7 +1414,8 @@ by 'html-identifier-indexes'." (merge-index-alists guix-split-node-indexes guile-split-node-indexes)) (format (current-error-port) - "building manual from work tree around commit ~a, ~a~%" + "building manual from work tree (~a) around commit ~a, ~a~%" + root commit (let* ((time (make-time time-utc 0 date)) (date (time-utc->date time))) |