suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix sha1-truncation, by removing it.

Browse Source 
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.
This commit is contained in:
Eli Barzilay 2010-07-25 05:01:44 -04:00
parent 82cba3fad0
commit af6364a58c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/repo-time-stamp/stamp.rkt
View File

@ -35,7 +35,7 @@
(let* ([x (x)] (let* ([x (x)]
[m (and (string? x) (regexp-match rx:secs+id x))] [m (and (string? x) (regexp-match rx:secs+id x))]
[d (and m (seconds->date (string->number (cadr m))))] [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))]) [how (and m (cadddr m))])
(define (pad02 f) (let ([n (f d)]) (if (< n 10) (format "0~a" n) n))) (define (pad02 f) (let ([n (f d)]) (if (< n 10) (format "0~a" n) n)))
(and d (format "~a-~a-~a(~a/~a)" (and d (format "~a-~a-~a(~a/~a)"