From 9ccbf1ba0add50779ef06113ea03c17c401ecd14 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 25 Jul 2010 05:01:44 -0400 Subject: [PATCH] Fix sha1-truncation, by removing it. Usually, the "%h" format should result in an abbreviated sha1, but it looks like getting it through `git archive' returns the full thing rather than the truncated version. So avoid the substring for now, and find out if it's a git bug or not. (cherry picked from commit af6364a58c192b359f6f47df0d6e7d0fe1324228) --- collects/repo-time-stamp/stamp.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/repo-time-stamp/stamp.rkt b/collects/repo-time-stamp/stamp.rkt index 726d99d50e..32000ec195 100644 --- a/collects/repo-time-stamp/stamp.rkt +++ b/collects/repo-time-stamp/stamp.rkt @@ -35,7 +35,7 @@ (let* ([x (x)] [m (and (string? x) (regexp-match rx:secs+id x))] [d (and m (seconds->date (string->number (cadr m))))] - [id (and m (substring (caddr m) 0 10))] + [id (and m (caddr m))] [how (and m (cadddr m))]) (define (pad02 f) (let ([n (f d)]) (if (< n 10) (format "0~a" n) n))) (and d (format "~a-~a-~a(~a/~a)"