lens: don't de-base64

This commit is contained in:
Philip Monk 2020-12-03 22:50:45 -08:00
parent d22f3f04c2
commit 8329b90efa
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC

View File

@ -59,8 +59,18 @@
=/ request-line (parse-request-line url.request.inbound-request)
=/ site (flop site.request-line)
::
=/ body=@t q:(need body.request.inbound-request)
?: =('#import_' (end [3 8] body))
~& %import-all
=/ by-app ;;((list [@tas *]) (cue (rsh [3 8] body)))
:_ this
%+ weld (give-simple-payload:app eyre-id not-found:gen)
%+ turn by-app
|= [app=@tas data=*]
^- card:agent:gall
[%pass /import-all %agent [our.bowl app] %poke %import !>(data)]
=/ jon=json
(need (de-json:html q:(need body.request.inbound-request)))
(need (de-json:html body))
=/ com=command:lens
(json:grab:lens-mark jon)
::