Skip to content

P
purescript-gargantext
Commit 4fc5f3b0 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

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

This reverts commit ed096142.
parent acf63b3a
Show whitespace changes
Inline Side-by-side
Showing with 0 additions and 3 deletions
src/Gargantext/Components/NgramsTable.purs
View file @ 4fc5f3b0
...@@ -576,8 +576,6 @@ ngramsElementToNgramsOcc :: NgramsElement -> NgramsOcc ...@@ -576,8 +576,6 @@ ngramsElementToNgramsOcc :: NgramsElement -> NgramsOcc
ngramsElementToNgramsOcc (NgramsElement {occurrences, children}) = {occurrences: Additive occurrences, children} ngramsElementToNgramsOcc (NgramsElement {occurrences, children}) = {occurrences: Additive occurrences, children}
sumOccurrences :: NgramsTable -> NgramsOcc -> Additive Int sumOccurrences :: NgramsTable -> NgramsOcc -> Additive Int
sumOccurrences _ _ = Additive 42
{-
sumOccurrences ngramsTable {occurrences, children} = sumOccurrences ngramsTable {occurrences, children} =
occurrences <> children ^. folded <<< to (sumOccurrences' ngramsTable) occurrences <> children ^. folded <<< to (sumOccurrences' ngramsTable)
where where
...@@ -586,7 +584,6 @@ sumOccurrences ngramsTable {occurrences, children} = ...@@ -586,7 +584,6 @@ sumOccurrences ngramsTable {occurrences, children} =
sumOccurrences nt { occurrences: nt ^. _NgramsTable <<< _ngrams_scores <<< ix label sumOccurrences nt { occurrences: nt ^. _NgramsTable <<< _ngrams_scores <<< ix label
, children: nt ^. ix label <<< _NgramsRepoElement <<< _children , children: nt ^. ix label <<< _NgramsRepoElement <<< _children
} }
-}
optps1 :: forall a. Show a => { desc :: String, mval :: Maybe a } -> R.Element optps1 :: forall a. Show a => { desc :: String, mval :: Maybe a } -> R.Element
optps1 { desc, mval } = H.option { value: value } [H.text desc] optps1 { desc, mval } = H.option { value: value } [H.text desc]
......
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