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

graph-push-hook: build %transform-add-nodes mark to keep cache hot

Browse Source
This commit is contained in:
Logan Allen 2021-03-02 14:01:06 -06:00
parent e7ad46db15
commit 48ab4da76c
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pkg/arvo/app/graph-push-hook.hoon
View File

@ -63,6 +63,11 @@
=* mark i.t.wire =* mark i.t.wire
:_ this :_ this
(build-permissions mark i.t.t.wire %next)^~ (build-permissions mark i.t.t.wire %next)^~
::
[%transform-add @ ~]
=* mark i.t.wire
:_ this
(build-transform-add mark %next)^~
== ==
:: ::
++ on-fail on-fail:def ++ on-fail on-fail:def
@ -193,6 +198,7 @@
:_ this(marks (~(put in marks) mark)) :_ this(marks (~(put in marks) mark))
:~ (build-permissions:hc mark %add %sing) :~ (build-permissions:hc mark %add %sing)
(build-permissions:hc mark %remove %sing) (build-permissions:hc mark %remove %sing)
(build-transform-add:hc mark %sing)
== ==
:: ::
%remove-graph %remove-graph
@ -331,5 +337,13 @@
=/ =mood:clay [%c da+now.bowl /[mark]/(perm-mark-name kind)] =/ =mood:clay [%c da+now.bowl /[mark]/(perm-mark-name kind)]
=/ =rave:clay ?:(?=(%sing mode) [mode mood] [mode mood]) =/ =rave:clay ?:(?=(%sing mode) [mode mood] [mode mood])
[%pass wire %arvo %c %warp our.bowl %home `rave] [%pass wire %arvo %c %warp our.bowl %home `rave]
::
++ build-transform-add
|= [=mark mode=?(%sing %next)]
^- card
=/ =wire /transform-add/[mark]
=/ =mood:clay [%c da+now.bowl /[mark]/transform-add-nodes]
=/ =rave:clay ?:(?=(%sing mode) [mode mood] [mode mood])
[%pass wire %arvo %c %warp our.bowl %home `rave]
-- --