launch and http-server-store: protect on-poke and on-watch

This commit is contained in:
Logan Allen 2020-05-27 18:56:20 -04:00
parent f13b174f16
commit c4d3fa41d9
2 changed files with 3 additions and 0 deletions

View File

@ -58,6 +58,7 @@
|= [=mark =vase]
^- (quip card _this)
|^
?> (team:title our.bowl src.bowl)
?+ mark (on-poke:def mark vase)
%http-server-action (landscape-action !<(action vase))
%handle-http-request
@ -191,6 +192,7 @@
|= =path
^- (quip card _this)
|^
?> (team:title our.bowl src.bowl)
?+ path (on-watch:def path)
[%http-response *] [~ this]
[%all ~] [(give [%configuration configuration]) this]

View File

@ -82,6 +82,7 @@
|= [=mark =vase]
^- (quip card _this)
|^
?> (team:title our.bowl src.bowl)
=^ cards state
?+ mark (on-poke:def mark vase)
%launch-action (poke-action !<(action:store vase))