Prevent ngrams trees of depth > 10

4d99ac79 · Nicolas Pouillard · 879330c8 · 4d99ac79
Commit 4d99ac79 authored Sep 29, 2020 by Nicolas Pouillard
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

Components.purs src/Gargantext/Components/NgramsTable/Components.purs +4 -1

No files found.
--- a/src/Gargantext/Components/NgramsTable/Components.purs
+++ b/src/Gargantext/Components/NgramsTable/Components.purs
@@ -159,7 +159,10 @@ treeCpt = R2.hooksComponent thisModule "tree" cpt

        forest =
          let depth = ngramsDepth.depth + 1 in
-          H.ul {} <<< map (\ngrams -> tree (params { ngramsDepth = {depth, ngrams} })) <<< L.toUnfoldable
+          if depth > 10 then
+            const $ H.text "ERROR DEPTH > 10"
+          else
+            H.ul {} <<< map (\ngrams -> tree (params { ngramsDepth = {depth, ngrams} })) <<< L.toUnfoldable


 type RenderNgramsItem =