%lens-command fix

This commit is contained in:
Philip C Monk 2016-03-11 19:37:11 -05:00
parent 3454ca9c72
commit 4144a1a8c8

View File

@ -18,6 +18,9 @@
++ source
^- $-(^json (unit source:lens))
|= jon/^json
=+ tuple=%.(jon (ar source))
?^ tuple
`[%tuple u.tuple]
%. jon
%- of :~
data+so:jo
@ -34,7 +37,6 @@
listen-api+(su ;~(plug sym ;~(pfix col sym)))
as+(ot mark+(su sym) next+source ~)
hoon+(ot code+so:jo next+source ~)
tuple+(ar source)
==
++ sink
^- $-(^json (unit sink:lens))