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 ...@@ -175,11 +175,6 @@ selectedNodesCpt = here.component "selectedNodes" cpt where
) )
# isJust # isJust
countValue
= extractedNodeList
# A.length
# (nodeCount - _)
-- | Behaviors -- | Behaviors
-- | -- |
let let
...@@ -212,7 +207,7 @@ selectedNodesCpt = here.component "selectedNodes" cpt where ...@@ -212,7 +207,7 @@ selectedNodesCpt = here.component "selectedNodes" cpt where
] ]
, ,
R2.when (eq countValue 0) $ R2.when (eq nodeCount 0) $
H.li H.li
{ className: intercalate " " { className: intercalate " "
...@@ -221,10 +216,10 @@ selectedNodesCpt = here.component "selectedNodes" cpt where ...@@ -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 H.li
{ className: intercalate " " { className: intercalate " "
...@@ -233,14 +228,14 @@ selectedNodesCpt = here.component "selectedNodes" cpt where ...@@ -233,14 +228,14 @@ selectedNodesCpt = here.component "selectedNodes" cpt where
] ]
} }
[ [
H.text "+" H.text "|"
, ,
H.text $ nbsp 1 H.text $ nbsp 1
, ,
H.text $ show countValue H.text $ show nodeCount
, ,
H.text $ nbsp 1 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