fixed app +wake arms

This commit is contained in:
Ted Blackman 2019-04-12 15:48:22 -07:00
parent 113e9647f4
commit 8c0823a2ec
6 changed files with 26 additions and 6 deletions

View File

@ -1225,7 +1225,9 @@
++ wake
|= [wir=wire error=(unit tang)]
^- (quip move _this)
?^ error ~| %acme-timer-failed !!
?^ error
%- (slog u.error)
abet
?> ?=([%acme *] wir)
abet:(retry:event t.wir)
:: +poke-acme-order: create new order for a set of domains

View File

@ -491,8 +491,11 @@
:: +wake: timer callback
::
++ wake
|= [=wire ~]
|= [=wire error=(unit tang)]
^- (quip move _this)
?^ error
%- (slog u.error)
[~ this]
?+ wire
~& [%strange-wake wire]
[~ this]

View File

@ -113,8 +113,11 @@
done:(put-snapshot-diff:(open:watcher i.pax) ost)
::
++ wake
|= [wir=wire ~]
|= [wir=wire error=(unit tang)]
^- (quip move _+>)
?^ error
%- (slog u.error)
done
?> ?=([@ %poll ~] wir)
done:poll-filter:(open:watcher i.wir)
::

View File

@ -12,8 +12,12 @@
[ost %wait /(scot %da now) +(now)]
::
++ wake
|= {wir/wire ~}
|= {wir/wire error=(unit tang)}
?> ?=({@ ~} wir)
?^ error
%- (slog u.error)
~& %time-behn-failed
[~ +>.$]
~& [%took `@dr`(sub now (slav %da i.wir))]
[~ +>.$]
--

View File

@ -114,7 +114,11 @@
abet:(emit %bonk /bonk ~)
::
++ take-wake-automass
|= [way=wire ~]
|= [way=wire error=(unit tang)]
?^ error
%- (slog u.error)
~& %helm-wake-automass-fail
abet
=. nex.mass-timer.sez (add now tim.mass-timer.sez)
=< abet
%- emil

View File

@ -337,7 +337,11 @@
abet:writ:autoload
::
++ take-wake-overload
|= {way/wire ~}
|= {way/wire error=(unit tang)}
?^ error
%- (slog u.error)
~& %kiln-take-wake-overload-fail
abet
?> ?=({@ ~} way)
=+ tym=(slav %dr i.way)
~& %wake-overload-deprecated