From 1a108dbae3e08754836be011419b3df09af691ec Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Wed, 21 Dec 2016 16:06:58 +1300
Subject: [PATCH] Unparse version URLs on their way out to the backend; fixes
#27
---
src/site.rkt | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/src/site.rkt b/src/site.rkt
index 09a8463..45aa527 100644
--- a/src/site.rkt
+++ b/src/site.rkt
@@ -1278,7 +1278,7 @@
'source source
'tags tags
'authors authors
- 'versions versions)))
+ 'versions (unparse-versions versions))))
(let* ((new-pkg (or old-pkg (hash)))
(new-pkg (hash-set new-pkg 'name name))
(new-pkg (hash-set new-pkg 'description description))
@@ -1322,6 +1322,11 @@
(hash-set st ':conflicts: #t))])
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)
(for/hash ((v draft-versions))
(match-define (list version parsed) v)