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

official catalog server: allow package addition via update API

Browse Source
This commit is contained in:
Matthew Flatt 2013-08-11 11:01:41 -06:00
parent a8250641e0
commit 49f15cc0a9
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkgs/plt-services/meta/pkg-index/official/main.rkt
View File

@ -132,9 +132,14 @@
(response/sexpr #f)] (response/sexpr #f)]
[else [else
(for ([(p more-pi) (in-hash pis)]) (for ([(p more-pi) (in-hash pis)])
(define pi (package-info p)) (define pi (if (package-exists? p)
(package-info p)
#hash()))
(define new-pi (hash-deep-merge pi more-pi)) (define new-pi (hash-deep-merge pi more-pi))
(package-info-set! p new-pi) (define updated-pi (let ([now (current-seconds)])
(for/fold ([pi new-pi]) ([k (in-list '(last-edit last-checked last-updated))])
(hash-set pi k now))))
(package-info-set! p updated-pi)
(thread (λ () (update-checksum #t p)))) (thread (λ () (update-checksum #t p))))
(response/sexpr #t)])) (response/sexpr #t)]))