Can now successfully add to store
This commit is contained in:
parent
2c99f59e97
commit
56ba37cab4
@ -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]
|
||||
--
|
||||
|
@ -1,6 +1,11 @@
|
||||
|%
|
||||
+$ action
|
||||
$? %ping
|
||||
[%submit-url @t]
|
||||
$%
|
||||
$: %submit-url
|
||||
url=@t
|
||||
==
|
||||
$: %ping
|
||||
~
|
||||
==
|
||||
==
|
||||
--
|
||||
|
Loading…
Reference in New Issue
Block a user