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

Add .fetchindex signal for refreshing the package index

Browse Source
This commit is contained in:
Tony Garnock-Jones 2014-11-09 17:20:44 -05:00
parent ff0fab3b02
commit e4398eef54
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/main.rkt
View File

@ -2,6 +2,7 @@
(module+ main (module+ main
(require "entrypoint.rkt") (require "entrypoint.rkt")
(void (make-entry-point 'refresh-packages! "packages.rkt"))
(start-service #:reloadable? (getenv "SITE_RELOADABLE") (start-service #:reloadable? (getenv "SITE_RELOADABLE")
(make-entry-point 'request-handler "site.rkt") (make-entry-point 'request-handler "site.rkt")
(make-entry-point 'on-continuation-expiry "site.rkt"))) (make-entry-point 'on-continuation-expiry "site.rkt")))

3
src/signals.rkt
View File

@ -29,5 +29,8 @@
(poll-signal "../signals/.reload" (poll-signal "../signals/.reload"
"Reload signal received - attempting to reload code" "Reload signal received - attempting to reload code"
(lambda () (reload!))) (lambda () (reload!)))
(poll-signal "../signals/.fetchindex"
"Index refresh signal received"
(lambda () ((entry-point-value (lookup-entry-point 'refresh-packages!)))))
(sleep 0.5) (sleep 0.5)
(loop))))) (loop)))))