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

Lazily reading Github API keys

Browse Source
This commit is contained in:
Jay McCarthy 2012-12-08 12:07:00 -07:00
parent 9b9a2f4280
commit 0ede891de9
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/meta/planet2-index/official/main.rkt
View File

@ -43,8 +43,11 @@
(build-path root "secret.key"))) (build-path root "secret.key")))
(define users-path (build-path root "users")) (define users-path (build-path root "users"))
(make-directory* users-path) (make-directory* users-path)
(define client_id (file->string (build-path root "client_id")))
(define client_secret (file->string (build-path root "client_secret"))) (define (client_id)
(file->string (build-path root "client_id")))
(define (client_secret)
(file->string (build-path root "client_secret")))
(module+ main (module+ main
(define users-old-path (build-path root "users.old")) (define users-old-path (build-path root "users.old"))
@ -679,8 +682,8 @@
(define new-checksum (define new-checksum
(package-url->checksum (package-url->checksum
(package-ref i 'source) (package-ref i 'source)
(list (cons 'client_id client_id) (list (cons 'client_id (client_id))
(cons 'client_secret client_secret)))) (cons 'client_secret (client_secret)))))
(package-begin (package-begin
(define* i (define* i
(hash-set i 'checksum (hash-set i 'checksum