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

Update hourly

Browse Source
This commit is contained in:
Jay McCarthy 2013-11-08 13:08:18 -07:00
parent acbc80edd9
commit e9e9ab651e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/plt-services/meta/pkg-index/official/dynamic.rkt
View File

@ -415,7 +415,7 @@
(thread (thread
(λ () (λ ()
(forever (forever
(sleep (* 24 60 60)) (sleep (* 1 60 60))
(printf "Running scheduled update.\n") (printf "Running scheduled update.\n")
(signal-update! empty)))) (signal-update! empty))))
(serve/servlet (serve/servlet

2
pkgs/plt-services/meta/pkg-index/official/update.rkt
View File

@ -28,7 +28,7 @@
(define now (current-seconds)) (define now (current-seconds))
(define last (hash-ref i 'last-checked -inf.0)) (define last (hash-ref i 'last-checked -inf.0))
(when (or force? (when (or force?
(>= (- now last) (* 24 60 60))) (>= (- now last) (* 1 60 60)))
(printf "\tupdating ~a\n" pkg-name) (printf "\tupdating ~a\n" pkg-name)
(define new-checksum (define new-checksum
(package-url->checksum (package-url->checksum