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

Unparse version URLs on their way out to the backend; fixes #27

Browse Source
This commit is contained in:
Tony Garnock-Jones 2016-12-21 16:06:58 +13:00
parent 904df22210
commit 1a108dbae3
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/site.rkt
View File

@ -1278,7 +1278,7 @@
'source source 'source source
'tags tags 'tags tags
'authors authors 'authors authors
'versions versions))) 'versions (unparse-versions versions))))
(let* ((new-pkg (or old-pkg (hash))) (let* ((new-pkg (or old-pkg (hash)))
(new-pkg (hash-set new-pkg 'name name)) (new-pkg (hash-set new-pkg 'name name))
(new-pkg (hash-set new-pkg 'description description)) (new-pkg (hash-set new-pkg 'description description))
@ -1322,6 +1322,11 @@
(hash-set st ':conflicts: #t))]) (hash-set st ':conflicts: #t))])
st)) st))
(define (unparse-versions draft-versions)
(for/list ((v draft-versions))
(match-define (list version parsed) v)
(list version (unparse-package-source parsed))))
(define (friendly-versions draft-versions) (define (friendly-versions draft-versions)
(for/hash ((v draft-versions)) (for/hash ((v draft-versions))
(match-define (list version parsed) v) (match-define (list version parsed) v)