Commit 823e3dfc authored by Karen Konou's avatar Karen Konou

[Graph legend] Fix node counts when dispalying all nodes

parent 90f53112
Pipeline #6685 passed with stages
in 22 minutes and 51 seconds
......@@ -175,11 +175,6 @@ selectedNodesCpt = here.component "selectedNodes" cpt where
)
# isJust
countValue
= extractedNodeList
# A.length
# (nodeCount - _)
-- | Behaviors
-- |
let
......@@ -212,7 +207,7 @@ selectedNodesCpt = here.component "selectedNodes" cpt where
]
,
R2.when (eq countValue 0) $
R2.when (eq nodeCount 0) $
H.li
{ className: intercalate " "
......@@ -221,10 +216,10 @@ selectedNodesCpt = here.component "selectedNodes" cpt where
]
}
[
H.text "0 node"
H.text "0 nodes"
]
,
R2.when (not $ eq countValue 0) $
R2.when (not $ eq nodeCount 0) $
H.li
{ className: intercalate " "
......@@ -233,14 +228,14 @@ selectedNodesCpt = here.component "selectedNodes" cpt where
]
}
[
H.text "+"
H.text "|"
,
H.text $ nbsp 1
,
H.text $ show countValue
H.text $ show nodeCount
,
H.text $ nbsp 1
,
H.text $ eq countValue 1 ? "node" $ "nodes"
H.text $ eq nodeCount 1 ? "node" $ "nodes"
]
]
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