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
c0957869
Commit
c0957869
authored
Jul 04, 2023
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[FIX] sending email at the end of phylo commented
parent
17ba8846
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
4 deletions
+6
-4
Update.hs
src/Gargantext/API/Node/Update.hs
+6
-4
No files found.
src/Gargantext/API/Node/Update.hs
View file @
c0957869
...
...
@@ -16,7 +16,7 @@ Portability : POSIX
module
Gargantext.API.Node.Update
where
import
Gargantext.Core.Types.Individu
(
User
(
..
))
--
import Gargantext.Core.Types.Individu (User(..))
import
Control.Lens
(
view
)
import
Data.Aeson
import
Data.Maybe
(
Maybe
(
..
),
fromMaybe
)
...
...
@@ -35,7 +35,7 @@ import Gargantext.Core.Viz.Graph.Tools (PartitionMethod(..), BridgenessMethod(..
import
Gargantext.Core.Viz.Graph.Types
(
Strength
)
import
Gargantext.Core.Viz.Phylo
(
PhyloSubConfigAPI
(
..
),
subConfigAPI2config
)
import
Gargantext.Core.Viz.Phylo.API.Tools
(
flowPhyloAPI
)
import
Gargantext.Database.Action.Mail
(
sendMail
)
--
import Gargantext.Database.Action.Mail (sendMail)
import
Gargantext.Database.Action.Flow.Pairing
(
pairing
)
import
Gargantext.Database.Action.Flow.Types
(
FlowCmdM
)
import
Gargantext.Database.Action.Metrics
(
updateNgramsOccurrences
,
updateContextScore
)
...
...
@@ -155,7 +155,7 @@ updateNode _uId lId (UpdateNodeParamsList _mode) jobHandle = do
markComplete
jobHandle
updateNode
userId
phyloId
(
UpdateNodePhylo
config
)
jobHandle
=
do
updateNode
_
userId
phyloId
(
UpdateNodePhylo
config
)
jobHandle
=
do
markStarted
3
jobHandle
corpusId'
<-
view
node_parent_id
<$>
getNode
phyloId
markProgress
1
jobHandle
...
...
@@ -173,7 +173,9 @@ updateNode userId phyloId (UpdateNodePhylo config) jobHandle = do
}
-}
_
<-
updateHyperdata
phyloId
(
HyperdataPhylo
Nothing
(
Just
phy
))
sendMail
(
UserDBId
userId
)
-- TODO: catch the error of sendMail if userId is not found, then debug
-- sendMail (UserDBId userId)
markComplete
jobHandle
updateNode
_uId
tId
(
UpdateNodeParamsTexts
_mode
)
jobHandle
=
do
...
...
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