summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--doc/build.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/doc/build.scm b/doc/build.scm
index f7730823186..7238c17a684 100644
--- a/doc/build.scm
+++ b/doc/build.scm
@@ -1475,7 +1475,9 @@ by 'html-identifier-indexes'."
1475 1475
1476 1476
1477(let* ((root (canonicalize-path 1477(let* ((root (canonicalize-path
1478 (string-append (current-source-directory) "/.."))) 1478 (string-append (or (current-source-directory)
1479 (string-append (getcwd) "/doc"))
1480 "/..")))
1479 (commit date (latest-commit+date root)) 1481 (commit date (latest-commit+date root))
1480 (version (or (getenv "GUIX_MANUAL_VERSION") 1482 (version (or (getenv "GUIX_MANUAL_VERSION")
1481 (string-take commit 7))) 1483 (string-take commit 7)))
@@ -1522,7 +1524,8 @@ by 'html-identifier-indexes'."
1522 (merge-index-alists guix-split-node-indexes guile-split-node-indexes)) 1524 (merge-index-alists guix-split-node-indexes guile-split-node-indexes))
1523 1525
1524 (format (current-error-port) 1526 (format (current-error-port)
1525 "building manual from work tree around commit ~a, ~a~%" 1527 "building manual from work tree (~a) around commit ~a, ~a~%"
1528 root
1526 commit 1529 commit
1527 (let* ((time (make-time time-utc 0 date)) 1530 (let* ((time (make-time time-utc 0 date))
1528 (date (time-utc->date time))) 1531 (date (time-utc->date time)))