Switch to symbolic specification of relative timeouts
This commit is contained in:
parent
659cb13738
commit
70b8d875b7
|
@ -220,7 +220,7 @@
|
||||||
(newline))
|
(newline))
|
||||||
(transition w
|
(transition w
|
||||||
(send-message (dns-request query s server-ip))
|
(send-message (dns-request query s server-ip))
|
||||||
(send-message (set-timer subscription-id (* timeout 1000) #t))
|
(send-message (set-timer subscription-id (* timeout 1000) 'relative))
|
||||||
(subscribe subscription-id
|
(subscribe subscription-id
|
||||||
(message-handlers w
|
(message-handlers w
|
||||||
[(timer-expired (== subscription-id) _)
|
[(timer-expired (== subscription-id) _)
|
||||||
|
|
|
@ -149,7 +149,7 @@
|
||||||
(transition new-zone
|
(transition new-zone
|
||||||
(for/list ([timerspec timers])
|
(for/list ([timerspec timers])
|
||||||
(match-define (cons name ttl) timerspec)
|
(match-define (cons name ttl) timerspec)
|
||||||
(send-message (set-timer (list 'check-dns-expiry name) (* ttl 1000) #t)))))
|
(send-message (set-timer (list 'check-dns-expiry name) (* ttl 1000) 'relative)))))
|
||||||
(os-big-bang/transition
|
(os-big-bang/transition
|
||||||
(extend-transition (let-values (((expired-zone timers) (zone-expire zone0)))
|
(extend-transition (let-values (((expired-zone timers) (zone-expire zone0)))
|
||||||
(transition-and-set-timers expired-zone timers))
|
(transition-and-set-timers expired-zone timers))
|
||||||
|
|
Loading…
Reference in New Issue