Skip to content

P
purescript-gargantext
Commit 4d99ac79 authored by Nicolas Pouillard's avatar Nicolas Pouillard
Browse files
Options

Prevent ngrams trees of depth > 10

parent 879330c8
Show whitespace changes
Inline Side-by-side
Showing with 4 additions and 1 deletion
src/Gargantext/Components/NgramsTable/Components.purs
View file @ 4d99ac79
...@@ -159,6 +159,9 @@ treeCpt = R2.hooksComponent thisModule "tree" cpt ...@@ -159,6 +159,9 @@ treeCpt = R2.hooksComponent thisModule "tree" cpt
forest = forest =
let depth = ngramsDepth.depth + 1 in let depth = ngramsDepth.depth + 1 in
if depth > 10 then
const $ H.text "ERROR DEPTH > 10"
else
H.ul {} <<< map (\ngrams -> tree (params { ngramsDepth = {depth, ngrams} })) <<< L.toUnfoldable H.ul {} <<< map (\ngrams -> tree (params { ngramsDepth = {depth, ngrams} })) <<< L.toUnfoldable
......
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