mirror of
https://github.com/urbit/shrub.git
synced 2024-12-01 22:55:03 +03:00
fixed app +wake arms
This commit is contained in:
parent
113e9647f4
commit
8c0823a2ec
@ -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
|
||||
|
@ -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]
|
||||
|
@ -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)
|
||||
::
|
||||
|
@ -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))]
|
||||
[~ +>.$]
|
||||
--
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user