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] ^- [(list card) state-0]
~& 'Browser Manager action' ~& 'Browser Manager action'
~& >> 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] [~ new-state]
-- --

View File

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