ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 07:28:30 +03:00
Code Issues Packages Projects Releases Wiki Activity

eyre: use static mark conversions

Browse Source
This commit is contained in:
Logan Allen 2021-05-20 12:11:45 -05:00
parent c0e4dcdc18
commit 306dbbaead
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1642,17 +1642,16 @@
::
=* have=mark p.cage.sign
=* desc=tape "from {(trip have)} to json"
=/ tube=(unit tube:clay)
=/ tuc=(unit (unit cage))
(rof ~ %cc [our %home da+now] /[have]/json)
?. ?=([~ ~ *] tuc) ~
`!<(tube:clay q.u.u.tuc)
?~ tube
((slog leaf+"eyre: no tube {desc}" ~) [~ ~])
::
=/ res (mule |.((u.tube q.cage.sign)))
=/ convert=(unit $-(* json))
=/ cag=(unit (unit cage))
(rof ~ %cf [our %home da+now] /[have]/json)
?. ?=([~ ~ *] cag) ~
`!<($-(* json) q.u.u.cag)
?~ convert
((slog leaf+"eyre: no convert {desc}" ~) [~ ~])
=/ res (mule |.((u.convert q.cage.sign)))
?: ?=(%& -.res)
[`have `[%fact %json p.res]]
[`have `[%fact %json !>(p.res)]]
((slog leaf+"eyre: failed tube {desc}" ~) [~ ~])
::
?~ q.jsyn ~
@ -1660,7 +1659,7 @@
:_ ?~ p.jsyn ~
:_ ~
:^ duct %pass /pass/(scot %ud request-id)
[%c %warp our %home `[%sing %c da+now /[u.p.jsyn]/json]]
[%c %warp our %home `[%sing %f da+now /[u.p.jsyn]/json]]
=* sign u.q.jsyn
=, enjs:format
%- pairs