Commit 64b1c644 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[sidebar] don't show selected node ids in neighbours

parent f94c4685
......@@ -384,7 +384,6 @@ onExpandSelectionChange { new } = do
neighborhood :: R2.Leaf ()
neighborhood = R2.leaf neighborhoodCpt
neighborhoodCpt :: R.Memo ()
neighborhoodCpt = R.memo' $ here.component "neighborhood" cpt where
cpt _ _ = do
......@@ -495,8 +494,9 @@ neighborhoodCpt = R.memo' $ here.component "neighborhood" cpt where
R2.when
(
withTruncateResults == false
|| index < maxTruncateResult
(withTruncateResults == false
|| index < maxTruncateResult)
&& (not $ Set.member node.id selectedNodeIds')
) $
H.li
{ className: "graph-neighborhood__badge" }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment