removed hard calls on json blobs

This commit is contained in:
Isaac Visintainer 2019-03-04 14:39:52 -08:00
parent 7542084ee7
commit 95a255d032

View File

@ -990,7 +990,7 @@
?. ?=($json p.p.cuf) ?. ?=($json p.p.cuf)
:: ~> %slog.`%*(. >[%backing p.p.cuf %q-p-cuf]< &3.+> (sell q.p.cuf)) :: ~> %slog.`%*(. >[%backing p.p.cuf %q-p-cuf]< &3.+> (sell q.p.cuf))
(back-turbo tee %json p.cuf) (back-turbo tee %json p.cuf)
(get-rush:(ire-ix p.tee) q.tee ((hard json) q.q.p.cuf)) (get-rush:(ire-ix p.tee) q.tee (,json q.q.p.cuf))
:: ::
$quit (get-quit:(ire-ix p.tee) q.tee) $quit (get-quit:(ire-ix p.tee) q.tee)
== ==
@ -1066,7 +1066,7 @@
=/ cay=cage (result-to-cage:ford build-result.result.sih) =/ cay=cage (result-to-cage:ford build-result.result.sih)
%+ get-rush:(ire-ix p.tee) q.tee %+ get-rush:(ire-ix p.tee) q.tee
?> ?=($json p.cay) :: XX others ?> ?=($json p.cay) :: XX others
((hard json) q.q.cay) (,json q.q.cay)
== ==
== ==
:: ::