Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
H
haskell-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
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
Przemyslaw Kaminski
haskell-gargantext
Commits
74d0164e
Commit
74d0164e
authored
Oct 01, 2020
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[Comment] last changes commented
parent
69f3f7cf
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
4 deletions
+5
-4
Ngrams.hs
src/Gargantext/API/Ngrams.hs
+5
-4
No files found.
src/Gargantext/API/Ngrams.hs
View file @
74d0164e
...
...
@@ -116,7 +116,7 @@ import Prelude (error)
import
Gargantext.Prelude
import
Gargantext.API.Admin.Types
(
HasSettings
)
import
qualified
Gargantext.API.Metrics
as
Metrics
--
import qualified Gargantext.API.Metrics as Metrics
import
Gargantext.API.Ngrams.Types
import
Gargantext.Core.Types
(
ListType
(
..
),
NodeId
,
ListId
,
DocId
,
Limit
,
Offset
,
HasInvalidError
,
TODO
,
assertValid
)
import
Gargantext.Core.Utils
(
something
)
...
...
@@ -130,8 +130,8 @@ import Gargantext.Database.Query.Table.Node.Error (HasNodeError)
import
Gargantext.Database.Admin.Types.Node
(
NodeType
(
..
))
import
Gargantext.Database.Prelude
(
HasConnectionPool
,
HasConfig
)
import
qualified
Gargantext.Database.Query.Table.Ngrams
as
TableNgrams
import
Gargantext.Database.Query.Table.Node
(
getNode
)
import
Gargantext.Database.Schema.Node
(
NodePoly
(
..
))
--
import Gargantext.Database.Query.Table.Node (getNode)
--
import Gargantext.Database.Schema.Node (NodePoly(..))
{-
-- TODO sequences of modifications (Patchs)
...
...
@@ -344,6 +344,7 @@ tableNgramsPut tabType listId (Versioned p_version p_table)
ret
<-
commitStatePatch
(
Versioned
p_version
p
)
<&>
v_data
%~
(
view
(
_PatchMap
.
at
ngramsType
.
_Just
.
_PatchMap
.
at
listId
.
_Just
))
{-
node <- getNode listId
let nId = _node_id node
_uId = _node_userId node
...
...
@@ -391,7 +392,7 @@ tableNgramsPut tabType listId (Versioned p_version p_table)
printDebug "[tableNgramsPut] no update for tabType = " tabType
pure ()
pure ()
-}
pure
ret
{-
...
...
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