Commit 3483e364 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[tree] fixes to ngrams list tree

parent 856a4c22
...@@ -103,6 +103,7 @@ renderNgramsTreeCpt = R2.hooksComponent thisModule "renderNgramsTree" cpt ...@@ -103,6 +103,7 @@ renderNgramsTreeCpt = R2.hooksComponent thisModule "renderNgramsTree" cpt
cpt { ngramsTable, ngrams, ngramsStyle, ngramsClick, ngramsEdit } _ = cpt { ngramsTable, ngrams, ngramsStyle, ngramsClick, ngramsEdit } _ =
pure $ H.ul {} [ pure $ H.ul {} [
H.span { className: "tree" } [ H.span { className: "tree" } [
H.span { className: "righthanded" } [
tree { ngramsClick tree { ngramsClick
, ngramsDepth: {ngrams, depth: 0} , ngramsDepth: {ngrams, depth: 0}
, ngramsEdit , ngramsEdit
...@@ -111,6 +112,7 @@ renderNgramsTreeCpt = R2.hooksComponent thisModule "renderNgramsTree" cpt ...@@ -111,6 +112,7 @@ renderNgramsTreeCpt = R2.hooksComponent thisModule "renderNgramsTree" cpt
} }
] ]
] ]
]
type NgramsDepth = {ngrams :: NgramsTerm, depth :: Int} type NgramsDepth = {ngrams :: NgramsTerm, depth :: Int}
......
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