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
160
Issues
160
List
Board
Labels
Milestones
Merge Requests
14
Merge Requests
14
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
haskell-gargantext
Commits
ec6d4e91
Verified
Commit
ec6d4e91
authored
Oct 30, 2024
by
Przemyslaw Kaminski
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[worker] no resendOnKill by default for all jobs
parent
46038100
Pipeline
#6920
failed with stages
in 22 minutes and 11 seconds
Changes
3
Pipelines
2
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
3 additions
and
3 deletions
+3
-3
cabal.project
cabal.project
+1
-1
Jobs.hs
src/Gargantext/Core/Worker/Jobs.hs
+1
-1
Flow.hs
src/Gargantext/Database/Action/Flow.hs
+1
-1
No files found.
cabal.project
View file @
ec6d4e91
...
...
@@ -196,7 +196,7 @@ source-repository-package
source
-
repository
-
package
type
:
git
location
:
https
://
gitlab
.
iscpif
.
fr
/
gargantext
/
haskell
-
bee
tag
:
307f6760383
b74cddd5a586d0b5b1f1a2fc94429
tag
:
239
a5eca1f11f802f4ae3cc1c80c390f7c6896ac
source
-
repository
-
package
type
:
git
...
...
src/Gargantext/Core/Worker/Jobs.hs
View file @
ec6d4e91
...
...
@@ -48,7 +48,7 @@ sendJob job = do
updateJobData
::
Job
->
W
.
SendJob
PGMQBroker
Job
->
W
.
SendJob
PGMQBroker
Job
updateJobData
(
AddCorpusFormAsync
{})
sj
=
sj
{
W
.
timeout
=
300
}
updateJobData
(
AddCorpusWithQuery
{})
sj
=
sj
{
W
.
timeout
=
3000
}
updateJobData
_
sj
=
sj
updateJobData
_
sj
=
sj
{
W
.
resendOnKill
=
False
}
-- | This is just a list of what's implemented and what not.
...
...
src/Gargantext/Database/Action/Flow.hs
View file @
ec6d4e91
...
...
@@ -280,7 +280,7 @@ flow c mkCorpusUser la mfslw (count, docsC) jobHandle = do
-- TODO if public insertMasterDocs else insertUserDocs
nlpServer
<-
view
$
nlpServerGet
(
_tt_lang
la
)
runConduit
$
zipSources
(
yieldMany
([
1
..
]
::
[
Int
]))
docsC
.|
CList
.
chunksOf
2
.|
CList
.
chunksOf
5
.|
mapM_C
(
addDocumentsWithProgress
nlpServer
userCorpusId
)
.|
sinkNull
...
...
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