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)
(hash-ref! t v
(lambda ()
(let* ([info (get-version-tag-info v)]
[tagger (car info)]
[date (cadr info)]
[announcement (caddr info)]
[year (date-year date)]
[month (vector-ref months (sub1 (date-month date)))])
(release v date (format "~a ~a" month year) announcement)))))))
(define info (get-version-tag-info v))
(if info
(let* ([tagger (car info)]
[date (cadr info)]
[announcement (caddr info)]
[year (date-year date)]
[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