urbit/lib/map-to-json.hoon

10 lines
260 B
Plaintext
Raw Normal View History

2016-02-18 02:50:03 +03:00
:: hoon data to json
::
:::: /hoon/map-to-json/lib
::
/? 310
2016-12-03 02:47:16 +03:00
=, format
2016-02-18 02:50:03 +03:00
|* {a/_cord b/_json} :: XX {a/$-(* cord) b/$-(* json)}
|= c/(map _+<.a _+<.b)
(pairs:enjs (turn ~(tap by c) |*(d/^ [(a -.d) (b +.d)])))