Commit 76d15cc9 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[Forest] sort childNodes by LNode.id

parent 455783f7
...@@ -95,8 +95,10 @@ childNodes :: Session ...@@ -95,8 +95,10 @@ childNodes :: Session
childNodes _ _ _ _ _ [] = [] childNodes _ _ _ _ _ [] = []
childNodes _ _ _ (false /\ _) _ _ = [] childNodes _ _ _ (false /\ _) _ _ = []
childNodes session frontends reload (true /\ _) mCurrentRoute ary = childNodes session frontends reload (true /\ _) mCurrentRoute ary =
map (\ctree -> childNode {tree: ctree}) $ ary -- map (Array.sortWith $ map (\(LNode {id}) -> id)) ary map (\ctree -> childNode {tree: ctree}) $ sorted ary
where where
sorted :: Array FTree -> Array FTree
sorted = Array.sortWith (\(NTree (LNode {id}) _) -> id)
childNode :: Tree -> R.Element childNode :: Tree -> R.Element
childNode props = R.createElement el props [] childNode props = R.createElement el props []
el = R.hooksComponent "ChildNodeView" cpt el = R.hooksComponent "ChildNodeView" cpt
......
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