lens: don't prematurely flush state
::
%fact
=^ cards this (take-export !<(* q.cage.sign))
- :_ this :_ cards
+ :_ this(job.state ~)
+ :_ cards
?> ?=(^ job.state)
?> ?=(%export -.source.com.u.job.state)
[%pass /export %agent [our.bowl app.source.com.u.job.state] %leave ~]
=/ enc (en:base64 octs)
(pairs:enjs:format file+s+output data+s+enc ~)
::
- :_ this(job.state ~)
+ :_ this
%+ give-simple-payload:app eyre-id.u.job.state
(json-response:gen (json-to-octs jon))
::
