syndicate-lang
/
racketmq-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Warn when config file is missing

This commit is contained in:
Tony Garnock-Jones 2016-11-21 10:54:07 +13:00
parent 9f6a73a8b0
commit 29402dfc0b
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
racketmq/config.rkt
View File

@ -14,9 +14,14 @@
(define (spawn-configuration path) (define (spawn-configuration path)
(actor #:name (list 'configuration-monitor path) (actor #:name (list 'configuration-monitor path)
(during (file-content path file->list $items) (during (file-content path file->list $items)
(log-info "config ~s: ~s" path items) (cond
(for [(item items)] [(not items)
(assert (config item)))))) (log-warning "config ~s is missing" path)]
[else
(log-info "loading config ~s" path)
(for [(item items)]
(log-info "config ~s: ~s" path item)
(assert (config item)))]))))
(define-syntax define/query-config (define-syntax define/query-config
(syntax-rules () (syntax-rules ()