Commit 6ef79a73 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[forest] fix chevron up/down

parent 614a6e1b
...@@ -259,7 +259,7 @@ chevronIconCpt = here.component "chevronIcon" cpt ...@@ -259,7 +259,7 @@ chevronIconCpt = here.component "chevronIcon" cpt
cpt { folderOpen, handed, isLeaf: true, nodeType } _ = do cpt { folderOpen, handed, isLeaf: true, nodeType } _ = do
pure $ H.div {} [] pure $ H.div {} []
cpt { folderOpen, handed, isLeaf: false, nodeType } _ = do cpt { folderOpen, handed, isLeaf: false, nodeType } _ = do
open <- T.read folderOpen open <- T.useLive T.unequal folderOpen
pure $ H.a { className: "chevron-icon" pure $ H.a { className: "chevron-icon"
, on: { click: \_ -> T.modify_ not folderOpen } , on: { click: \_ -> T.modify_ not folderOpen }
} }
......
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