Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
P
purescript-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
142
Issues
142
List
Board
Labels
Milestones
Merge Requests
4
Merge Requests
4
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
purescript-gargantext
Commits
a10f2fd1
Verified
Commit
a10f2fd1
authored
Jun 05, 2023
by
Przemyslaw Kaminski
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[ngrams] foldr -> foldl
parent
40744dc3
Pipeline
#4146
failed with stage
in 0 seconds
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
1 addition
and
2 deletions
+1
-2
Field.purs
src/Gargantext/Components/Annotation/Field.purs
+0
-1
Functions.purs
src/Gargantext/Core/NgramsTable/Functions.purs
+1
-1
No files found.
src/Gargantext/Components/Annotation/Field.purs
View file @
a10f2fd1
...
@@ -14,7 +14,6 @@ module Gargantext.Components.Annotation.Field where
...
@@ -14,7 +14,6 @@ module Gargantext.Components.Annotation.Field where
import Gargantext.Prelude
import Gargantext.Prelude
import Data.Array as A
import Data.Array as A
import Data.FoldableWithIndex (foldlWithIndex, foldrWithIndex)
import Data.List (List(..), (:))
import Data.List (List(..), (:))
import Data.Map (Map)
import Data.Map (Map)
import Data.Maybe (Maybe(..), maybe)
import Data.Maybe (Maybe(..), maybe)
...
...
src/Gargantext/Core/NgramsTable/Functions.purs
View file @
a10f2fd1
...
@@ -155,7 +155,7 @@ computeCache ngrams contextNgrams = { contextNgrams, pm, pats }
...
@@ -155,7 +155,7 @@ computeCache ngrams contextNgrams = { contextNgrams, pm, pats }
pats :: Array NgramsTerm
pats :: Array NgramsTerm
pats = A.fromFoldable $
pats = A.fromFoldable $
fold
rWithIndex (\term (NgramsRepoElement nre) acc
-> Set.union acc $ Set.insert term nre.children) Set.empty contextRepoElements
fold
lWithIndex (\term acc (NgramsRepoElement nre)
-> Set.union acc $ Set.insert term nre.children) Set.empty contextRepoElements
-- pats = A.fromFoldable $
-- pats = A.fromFoldable $
-- foldrWithIndex (\term (NgramsRepoElement nre) acc -> Set.union acc $ Set.insert term nre.children) Set.empty ngrams_repo_elements
-- foldrWithIndex (\term (NgramsRepoElement nre) acc -> Set.union acc $ Set.insert term nre.children) Set.empty ngrams_repo_elements
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment