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