From 782f6c71ee6469fa962ad42ff0c022dbbc16244e Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 20 Apr 2010 14:56:27 -0600 Subject: [PATCH] Getting build start time from somewhere else so it is monotonic --- collects/meta/drdr/render.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/meta/drdr/render.ss b/collects/meta/drdr/render.ss index acc1699f80..4f1ca701ae 100644 --- a/collects/meta/drdr/render.ss +++ b/collects/meta/drdr/render.ss @@ -557,7 +557,8 @@ (define name (path->string rev-pth)) (define url (format "~a/" name)) (define rev (string->number name)) - (define log (read-cache (revision-commit-msg rev))) + (define log-pth (revision-commit-msg rev)) + (define log (read-cache log-pth)) (define committer (svn-rev-log-author log)) (define commit-msg (string-first-line (svn-rev-log-msg log))) (define title @@ -566,7 +567,7 @@ commit-msg)) (define (no-rendering-row) (define mtime - (file-or-directory-modify-seconds (build-path builds-pth rev-pth))) + (file-or-directory-modify-seconds log-pth)) `(tr ([class "dir"] [title ,title])