urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-18 15:55:00 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #5661 from urbit/lf/graph-drop-logs

Browse Source 
graph-store: drop unnecessary logs
This commit is contained in:
Liam Fitzgerald 2022-04-13 14:05:28 -05:00 committed by GitHub
commit ba50914615
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 41 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
pkg/landscape/app/graph-store.hoon
View File

@ -10,16 +10,17 @@
[%2 network:zero:store]
[%3 network:one:store]
[%4 network:store]
state-5
[%5 network:store]
state-6
==
::
+$ state-5 [%5 network:store]
::-
+$ state-6 [%6 network:store]
++ orm orm:store
++ orm-log orm-log:store
++ mar %graph-update-3
--
::
=| state-5
=| state-6
=* state -
::
%- agent:dbug
@ -81,7 +82,21 @@
(gas:orm-log ~ [now.bowl logged-update] ~)
==
::
%5 [cards this(state old)]
%5
%_ $
-.old %6
::
update-logs.old
%- ~(rut by update-logs.old)
|= [=resource:store =update-log:store]
^- update-log:store
?: =(our.bowl entity.resource)
update-log
%+ gas:orm-log *update-log:store
(scag 2 (tap:orm-log update-log))
==
::
%6 [cards this(state old)]
==
::
++ on-watch
@ -138,6 +153,15 @@
%tags ~|('cannot send %tags as poke' !!)
%tag-queries ~|('cannot send %tag-queries as poke' !!)
==
++ put-update-log
|= [=resource:store =update-log:store =time =logged-update:store]
^- update-log:store
?: =(our.bowl entity.resource)
(put:orm-log update-log time logged-update)
%+ gas:orm-log *update-log:store
:~ (need (pry:orm-log update-log))
[time logged-update]
==
::
++ add-graph
|= $: =time
@ -194,7 +218,7 @@
?> is-valid
=/ =update-log:store (~(got by update-logs) resource)
=. update-log
(put:orm-log update-log time [time [%add-nodes resource nodes]])
(put-update-log resource update-log time [time %add-nodes resource nodes])
::
:- (give [/updates]~ [%add-nodes resource nodes])
%_ state
@ -332,7 +356,9 @@
(~(got by graphs) resource)
=/ =update-log:store (~(got by update-logs) resource)
=. update-log
(put:orm-log update-log time [time [%remove-posts resource indices]])
%^ put-update-log resource
update-log
[time time %remove-posts resource indices]
:- (give [/updates]~ [%remove-posts resource indices])
%_ state
update-logs (~(put by update-logs) resource update-log)
@ -419,8 +445,9 @@
(~(got by graphs) resource)
=/ =update-log:store (~(got by update-logs) resource)
=. update-log
(put:orm-log update-log time [time [%add-signatures uid signatures]])
::
%^ put-update-log resource
update-log
[time time %add-signatures uid signatures]
:- (give [/updates]~ [%add-signatures uid signatures])
%_ state
update-logs (~(put by update-logs) resource update-log)
@ -467,9 +494,9 @@
(~(got by graphs) resource)
=/ =update-log:store (~(got by update-logs) resource)
=. update-log
%^ put:orm-log update-log
time
[time [%remove-signatures uid signatures]]
%^ put-update-log resource
update-log
[time time %remove-signatures uid signatures]
::
:- (give [/updates]~ [%remove-signatures uid signatures])
%_ state

4
pkg/landscape/lib/graph-store.hoon
View File

@ -758,9 +758,9 @@
--
++ import
|= [arc=* our=ship]
^- (quip card:agent:gall [%5 network])
^- (quip card:agent:gall [%6 network])
|^
=/ sty [%5 (remake-network ;;(tree-network +.arc))]
=/ sty [%6 (remake-network ;;(tree-network +.arc))]
:_ sty
%+ turn ~(tap by graphs.sty)
|= [rid=resource =marked-graph]