mirror of
https://github.com/urbit/shrub.git
synced 2024-12-22 18:31:44 +03:00
24 lines
368 B
Plaintext
24 lines
368 B
Plaintext
::
|
|
:::: /hoon/time/app
|
|
::
|
|
/? 310
|
|
|%
|
|
++ card {$wait wire @da}
|
|
--
|
|
|_ {bowl:gall ~}
|
|
++ poke-noun
|
|
|= *
|
|
:_ +>.$ :_ ~
|
|
[ost %wait /(scot %da now) +(now)]
|
|
::
|
|
++ wake
|
|
|= {wir/wire error=(unit tang)}
|
|
?> ?=({@ ~} wir)
|
|
?^ error
|
|
%- (slog u.error)
|
|
~& %time-behn-failed
|
|
[~ +>.$]
|
|
~& [%took `@dr`(sub now (slav %da i.wir))]
|
|
[~ +>.$]
|
|
--
|