Commit 03a29be6 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[forest] fix folder icons on fold/unfold

parent d711e6ce
......@@ -239,7 +239,7 @@ folderIconCpt :: R.Component FolderIconProps
folderIconCpt = here.component "folderIcon" cpt
where
cpt { folderOpen, nodeType } _ = do
open <- T.read folderOpen
open <- T.useLive T.unequal folderOpen
pure $ H.a { className: "folder-icon", on: { click: \_ -> T.modify_ not folderOpen } }
[ H.i { className: GT.fldr nodeType open } [] ]
......
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