shrub/pkg/arvo/app/time.hoon

::
::::  /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))]
  [~ +>.$]
--
:time app, measures time between poke and subsequent wakeup 2016-07-25 04:02:52 +03:00			`::`
			`:::: /hoon/time/app`
			`::`
			`/? 310`
			`\|%`
			`++ card {$wait wire @da}`
			`--`
Remove old-zuse (#867) * removes old-zuse 2018-10-27 02:19:18 +03:00			`\|_ {bowl:gall ~}`
:time app, measures time between poke and subsequent wakeup 2016-07-25 04:02:52 +03:00			`++ poke-noun`
			`\|= *`
			`:_ +>.$ :_ ~`
			`[ost %wait /(scot %da now) +(now)]`
			`::`
			`++ wake`
fixed app +wake arms 2019-04-13 01:48:22 +03:00			`\|= {wir/wire error=(unit tang)}`
Stop using obsolete $~ syntax. 2018-03-19 07:18:20 +03:00			`?> ?=({@ ~} wir)`
fixed app +wake arms 2019-04-13 01:48:22 +03:00			`?^ error`
			`%- (slog u.error)`
			`~& %time-behn-failed`
			`[~ +>.$]`
:time app, measures time between poke and subsequent wakeup 2016-07-25 04:02:52 +03:00			~& [%took `@dr`(sub now (slav %da i.wir))]
			`[~ +>.$]`
			`--`