DEBUG: disable sumOccurrences in case it is the root of the recursion

src/Gargantext/Components/NgramsTable.purs

@@ -576,6 +576,8 @@ ngramsElementToNgramsOcc :: NgramsElement -> NgramsOcc
 ngramsElementToNgramsOcc (NgramsElement {occurrences, children}) = {occurrences: Additive occurrences, children}
 
 sumOccurrences :: NgramsTable -> NgramsOcc -> Additive Int
+sumOccurrences _ _ = Additive 42
+{-
 sumOccurrences ngramsTable {occurrences, children} =
     occurrences <> children ^. folded <<< to (sumOccurrences' ngramsTable)
     where
@@ -584,6 +586,7 @@ sumOccurrences ngramsTable {occurrences, children} =
         sumOccurrences nt { occurrences: nt ^. _NgramsTable <<< _ngrams_scores <<< ix label
                           , children:    nt ^. ix label <<< _NgramsRepoElement <<< _children
                           }
+-}
 
 optps1 :: forall a. Show a => { desc :: String, mval :: Maybe a } -> R.Element
 optps1 { desc, mval } = H.option { value: value } [H.text desc]