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

Make it possible for the pages to build even when there's no tag to

Browse Source 
extract release information from.

(So it's still useful for quick tests.)
This commit is contained in:
Eli Barzilay 2011-05-27 17:53:45 -04:00
parent c8c7898093
commit 35f2accaf8
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/meta/web/download/data.rkt
View File

@ -135,13 +135,15 @@
(lambda (v) (lambda (v)
(hash-ref! t v (hash-ref! t v
(lambda () (lambda ()
(let* ([info (get-version-tag-info v)] (define info (get-version-tag-info v))
[tagger (car info)] (if info
[date (cadr info)] (let* ([tagger (car info)]
[announcement (caddr info)] [date (cadr info)]
[year (date-year date)] [announcement (caddr info)]
[month (vector-ref months (sub1 (date-month date)))]) [year (date-year date)]
(release v date (format "~a ~a" month year) announcement))))))) [month (vector-ref months (sub1 (date-month date)))])
(release v date (format "~a ~a" month year) announcement))
(release v #f "(unknown date)" "(no release text found)")))))))
;; ---------------------------------------------------------------------------- ;; ----------------------------------------------------------------------------
;; Installer information ;; Installer information