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