Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
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
Christian Merten
haskell-gargantext
Commits
a04e0e9d
Commit
a04e0e9d
authored
Feb 11, 2019
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[FLOW] FIX listUser, but still repo.json is empty
parent
f2728eb9
Changes
2
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
96 additions
and
78 deletions
+96
-78
Ngrams.hs
src/Gargantext/API/Ngrams.hs
+2
-2
Flow.hs
src/Gargantext/Database/Flow.hs
+94
-76
No files found.
src/Gargantext/API/Ngrams.hs
View file @
a04e0e9d
...
...
@@ -644,9 +644,9 @@ something :: Monoid a => Maybe a -> a
something
Nothing
=
mempty
something
(
Just
a
)
=
a
insertNewListOfNgramsElement
s
::
RepoCmdM
env
err
m
=>
NodeId
->
NgramsType
putListNgram
s
::
RepoCmdM
env
err
m
=>
NodeId
->
NgramsType
->
[
NgramsElement
]
->
m
()
insertNewListOfNgramsElement
s
listId
ngramsType
nes
=
do
putListNgram
s
listId
ngramsType
nes
=
do
var
<-
view
repoVar
liftIO
$
modifyMVar_
var
$
pure
.
(
r_state
.
at
ngramsType
%~
(
Just
.
(
at
listId
%~
insertNewOnly
m
)
.
something
))
...
...
src/Gargantext/Database/Flow.hs
View file @
a04e0e9d
This diff is collapsed.
Click to expand it.
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