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
141
Issues
141
List
Board
Labels
Milestones
Merge Requests
5
Merge Requests
5
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
2274aa68
Commit
2274aa68
authored
Jun 05, 2023
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[FIX] removing cron jobs
parent
9ab9897b
Pipeline
#4145
canceled with stages
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
6 deletions
+8
-6
gargantext.cabal
gargantext.cabal
+1
-1
API.hs
src/Gargantext/API.hs
+7
-5
No files found.
gargantext.cabal
View file @
2274aa68
...
...
@@ -5,7 +5,7 @@ cabal-version: 1.12
-- see: https://github.com/sol/hpack
name: gargantext
version: 0.0.6.9.9.5.8
version:
0.0.6.9.9.5.8
synopsis: Search, map, share
description: Please see README.md
category: Data
...
...
src/Gargantext/API.hs
View file @
2274aa68
...
...
@@ -34,7 +34,7 @@ module Gargantext.API
where
import
Control.Concurrent
import
Control.Exception
(
catch
,
finally
,
SomeException
,
displayException
,
IOException
)
import
Control.Exception
(
catch
,
finally
,
SomeException
{-, displayException, IOException-}
)
import
Control.Lens
import
Control.Monad.Except
import
Control.Monad.Reader
(
runReaderT
)
...
...
@@ -56,8 +56,8 @@ import Gargantext.API.Ngrams (saveNodeStoryImmediate)
import
Gargantext.API.Routes
import
Gargantext.API.Server
(
server
)
import
Gargantext.Core.NodeStory
import
Gargantext.Database.Prelude
(
Cmd
)
import
Gargantext.Database.Action.Metrics.NgramsByContext
(
refreshNgramsMaterialized
)
--
import Gargantext.Database.Prelude (Cmd)
--
import Gargantext.Database.Action.Metrics.NgramsByContext (refreshNgramsMaterialized)
import
Gargantext.Prelude
hiding
(
putStrLn
)
import
Network.HTTP.Types
hiding
(
Query
)
import
Network.Wai
...
...
@@ -119,13 +119,14 @@ startGargantextMock port = do
-- | Schedules all sorts of useful periodic actions to be run while
-- the server is alive accepting requests.
schedulePeriodicActions
::
DB
.
CmdCommon
env
=>
env
->
IO
[
ThreadId
]
schedulePeriodicActions
env
=
schedulePeriodicActions
_
env
=
-- Add your scheduled actions here.
let
actions
=
[
refreshDBViews
--
refreshDBViews
]
in
foldlM
(
\
!
acc
action
->
(`
mappend
`
acc
)
<$>
Cron
.
execSchedule
action
)
[]
actions
{-
where
refreshDBViews :: Cron.Schedule ()
...
...
@@ -138,6 +139,7 @@ schedulePeriodicActions env =
_ <- liftIO $ putStrLn $ pack "Refresh Index Database done"
pure ()
Cron.addJob doRefresh "* 2 * * *"
-}
----------------------------------------------------------------------
...
...
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