Merge branch 'la/graph-silence' (#4147)

* origin/la/graph-silence:
  graph-store: silence duplicate message assertion temporarily

Signed-off-by: Matilde Park <matilde.park@gmail.com>
This commit is contained in:
Matilde Park 2020-12-12 16:25:28 -05:00
commit f5f3937d4a
2 changed files with 17 additions and 17 deletions

View File

@ -22,21 +22,16 @@
dep ~(. (default:pull-hook this config) bowl)
gra ~(. graph bowl)
::
++ on-init on-init:def
++ on-save !>(~)
++ on-load on-load:def
++ on-poke on-poke:def
++ on-peek on-peek:def
++ on-arvo on-arvo:def
++ on-fail on-fail:def
++ on-agent
|= [=wire =sign:agent:gall]
^- (quip card _this)
?: ?=(%poke-ack -.sign) `this
(on-agent:def wire sign)
::
++ on-watch on-watch:def
++ on-leave on-leave:def
++ on-init on-init:def
++ on-save !>(~)
++ on-load on-load:def
++ on-poke on-poke:def
++ on-peek on-peek:def
++ on-arvo on-arvo:def
++ on-fail on-fail:def
++ on-agent on-agent:def
++ on-watch on-watch:def
++ on-leave on-leave:def
++ on-pull-nack
|= [=resource =tang]
^- (quip card _this)

View File

@ -297,8 +297,13 @@
|^
=/ [=graph:store mark=(unit mark:store)]
(~(got by graphs) resource)
~| "cannot add duplicate nodes to {<resource>}"
?< (check-for-duplicates graph ~(key by nodes))
:: TODO: turn back on assertion once issue with 8-10x facts being
:: issued is resolved. Too noisy for now
::
:: ~| "cannot add duplicate nodes to {<resource>}"
:: ?< (check-for-duplicates graph ~(key by nodes))
?: (check-for-duplicates graph ~(key by nodes))
[~ state]
=/ =update-log:store (~(got by update-logs) resource)
=. update-log
(put:orm-log update-log time [%0 time [%add-nodes resource nodes]])