Can now successfully add to store

This commit is contained in:
ronreg-ribdev 2021-01-03 03:00:39 -08:00
parent 2c99f59e97
commit 56ba37cab4
2 changed files with 13 additions and 3 deletions

View File

@ -79,6 +79,11 @@
^- [(list card) state-0]
~& 'Browser Manager action'
~& >> action
=/ new-state state(access-counts (add 1 access-counts.state))
=/ new-state
?- -.action
%ping state
%submit-url ~& 'got submit-url' state(seen-urls (~(put in seen-urls.state) url.action))
==
=/ new-state new-state(access-counts (add 1 access-counts.state))
[~ new-state]
--

View File

@ -1,6 +1,11 @@
|%
+$ action
$? %ping
[%submit-url @t]
$%
$: %submit-url
url=@t
==
$: %ping
~
==
==
--