herb: expect * rather than @

This commit is contained in:
Isaac Visintainer 2020-12-01 00:15:05 -08:00
parent 81cf813128
commit a779ca4d7e

View File

@ -17,10 +17,10 @@
::
++ export-app
|= [app=@tas our=@p now=@da]
.^(@ %gx /(scot %p our)/[app]/(scot %da now)/export/noun)
.^(* %gx /(scot %p our)/[app]/(scot %da now)/export/noun)
++ export-all
|= [our=@p now=@da]
^- (list [@tas @])
^- (list [@tas *])
%+ turn
^- (list @tas)
:~ %group-store
@ -31,7 +31,6 @@
%invite-store
%chat-store
%chat-hook
%publish
%graph-store
==
|= app=@tas
@ -94,13 +93,14 @@
(json-response:gen jon)
::
%import-all
~& %import-all
=/ enc (de:base64 base64-jam.source.com)
?~ enc !!
=/ by-app ;;((list [@tas @]) (cue q.u.enc))
=/ by-app ;;((list [@tas *]) (cue q.u.enc))
:_ this
%+ weld (give-simple-payload:app eyre-id not-found:gen)
%+ turn by-app
|= [app=@tas data=@]
|= [app=@tas data=*]
^- card:agent:gall
[%pass /import-all %agent [our.bowl app] %poke %import !>(data)]
==