urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-19 08:32:39 +03:00
Code Issues Packages Projects Releases Wiki Activity

clay, eyre: add profiling hints

Browse Source
This commit is contained in:
Philip Monk 2021-03-28 00:47:37 -07:00
parent 7b55097ef4
commit a1647a9767
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkg/arvo/sys/vane/clay.hoon
View File

@ -3962,8 +3962,10 @@
ruf=raft :: revision tree ruf=raft :: revision tree
== :: == ::
|= [now=@da eny=@uvJ rof=roof] :: current invocation |= [now=@da eny=@uvJ rof=roof] :: current invocation
~% %clay-top ..part ~
|% :: |% ::
++ call :: handle request ++ call :: handle request
~/ %clay-call
|= $: hen=duct |= $: hen=duct
dud=(unit goof) dud=(unit goof)
wrapped-task=(hobo task) wrapped-task=(hobo task)
@ -4273,6 +4275,7 @@
-- --
:: ::
++ scry :: inspect ++ scry :: inspect
~/ %clay-scry
^- roon ^- roon
|= [lyc=gang car=term bem=beam] |= [lyc=gang car=term bem=beam]
^- (unit (unit cage)) ^- (unit (unit cage))
@ -4334,6 +4337,7 @@
== ==
:: ::
++ take :: accept response ++ take :: accept response
~/ %clay-take
|= [tea=wire hen=duct dud=(unit goof) hin=sign] |= [tea=wire hen=duct dud=(unit goof) hin=sign]
^+ [*(list move) ..^$] ^+ [*(list move) ..^$]
?^ dud ?^ dud

5
pkg/arvo/sys/vane/eyre.hoon
View File

@ -1597,6 +1597,7 @@
:: +channel-event-to-sign: attempt to recover a sign from a channel-event :: +channel-event-to-sign: attempt to recover a sign from a channel-event
:: ::
++ channel-event-to-sign ++ channel-event-to-sign
~% %eyre-channel-event-to-sign ..part ~
|= event=channel-event |= event=channel-event
^- (unit sign:agent:gall) ^- (unit sign:agent:gall)
?. ?=(%fact -.event) `event ?. ?=(%fact -.event) `event
@ -1677,6 +1678,7 @@
== ==
:: ::
++ event-json-to-wall ++ event-json-to-wall
~% %eyre-json-to-wall ..part ~
|= [event-id=@ud =json] |= [event-id=@ud =json]
^- wall ^- wall
:~ (weld "id: " (format-ud-as-integer event-id)) :~ (weld "id: " (format-ud-as-integer event-id))
@ -2094,6 +2096,7 @@
~% %http-server ..part ~ ~% %http-server ..part ~
|% |%
++ call ++ call
~/ %eyre-call
|= [=duct dud=(unit goof) wrapped-task=(hobo task)] |= [=duct dud=(unit goof) wrapped-task=(hobo task)]
^- [(list move) _http-server-gate] ^- [(list move) _http-server-gate]
:: ::
@ -2296,6 +2299,7 @@
== ==
:: ::
++ take ++ take
~/ %eyre-take
|= [=wire =duct dud=(unit goof) =sign] |= [=wire =duct dud=(unit goof) =sign]
^- [(list move) _http-server-gate] ^- [(list move) _http-server-gate]
?^ dud ?^ dud
@ -2483,6 +2487,7 @@
:: +scry: request a path in the urbit namespace :: +scry: request a path in the urbit namespace
:: ::
++ scry ++ scry
~/ %eyre-scry
^- roon ^- roon
|= [lyc=gang car=term bem=beam] |= [lyc=gang car=term bem=beam]
^- (unit (unit cage)) ^- (unit (unit cage))