[ngrams] foldr -> foldl

src/Gargantext/Components/Annotation/Field.purs

@@ -14,7 +14,6 @@ module Gargantext.Components.Annotation.Field where
 import Gargantext.Prelude
 
 import Data.Array as A
-import Data.FoldableWithIndex (foldlWithIndex, foldrWithIndex)
 import Data.List (List(..), (:))
 import Data.Map (Map)
 import Data.Maybe (Maybe(..), maybe)

src/Gargantext/Core/NgramsTable/Functions.purs

@@ -155,7 +155,7 @@ computeCache ngrams contextNgrams = { contextNgrams, pm, pats }
 
     pats :: Array NgramsTerm
     pats = A.fromFoldable $
-           foldrWithIndex (\term (NgramsRepoElement nre) acc -> Set.union acc $ Set.insert term nre.children) Set.empty contextRepoElements
+           foldlWithIndex (\term acc (NgramsRepoElement nre) -> Set.union acc $ Set.insert term nre.children) Set.empty contextRepoElements
 
     -- pats = A.fromFoldable $
     --        foldrWithIndex (\term (NgramsRepoElement nre) acc -> Set.union acc $ Set.insert term nre.children) Set.empty ngrams_repo_elements