[ngrams] fix job prelude, compiles now with MonadBase IO

src/Gargantext/API/Ngrams.hs

@@ -114,7 +114,7 @@ import Test.QuickCheck (elements)
 import Test.QuickCheck.Arbitrary (Arbitrary, arbitrary)
 
 import Prelude (error)
-import Gargantext.Prelude
+import Gargantext.Prelude hiding (log)
 
 import Gargantext.API.Admin.Orchestrator.Types (JobLog(..), AsyncJobs)
 import Gargantext.API.Admin.Types (HasSettings)
@@ -133,7 +133,6 @@ import Gargantext.Database.Prelude (HasConnectionPool, HasConfig)
 import Gargantext.Database.Query.Table.Node.Error (HasNodeError)
 import Gargantext.Database.Query.Table.Node.Select
 import Gargantext.Database.Query.Table.Ngrams hiding (NgramsType(..), ngrams, ngramsType, ngrams_terms)
-import Gargantext.Database.Query.Table.Node.Error (HasNodeError)
 import qualified Gargantext.Database.Query.Table.Ngrams as TableNgrams
 import Gargantext.Database.Query.Table.Node (getNode)
 import Gargantext.Database.Schema.Node (node_id, node_parentId, node_userId)

src/Gargantext/API/Routes.hs

@@ -251,7 +251,7 @@ addCorpusWithQuery user cid =
   serveJobsAPI $
     JobFunction (\q log -> do
       limit <- view $ config . gc_max_docs_scrapers
-      New.ahttps://filezilla-project.org/ddToCorpusWithQuery user cid q (Just limit) (liftBase . log)
+      New.addToCorpusWithQuery user cid q (Just limit) (liftBase . log)
       {- let log' x = do
         printDebug "addToCorpusWithQuery" x
         liftBase $ log x

src/Gargantext/Prelude/Job.hs

 module Gargantext.Prelude.Job where
 
-import Control.Monad.IO.Class (liftIO, MonadIO)
 import Data.IORef
 import Data.Maybe
 
@@ -8,6 +7,7 @@ import Gargantext.Prelude
 
 import Gargantext.API.Admin.Orchestrator.Types (JobLog(..))
 
+
 jobLogInit :: Int -> JobLog
 jobLogInit rem =
   JobLog { _scst_succeeded = Just 0
@@ -36,18 +36,18 @@ jobLogFail (JobLog { _scst_succeeded = mSucc
          , _scst_failed = (+ 1) <$> mFail
          , _scst_events = evt }
 
-runJobLog :: MonadIO io => Int -> (JobLog -> io ()) -> io (io (), io (), io JobLog)
+runJobLog :: MonadBase IO m => Int -> (JobLog -> m ()) -> m (m (), m (), m JobLog)
 runJobLog num logStatus = do
-  jlRef <- liftIO $ newIORef $ jobLogInit num
+  jlRef <- liftBase $ newIORef $ jobLogInit num
 
   return (logRefF jlRef, logRefSuccessF jlRef, getRefF jlRef)
 
   where
     logRefF ref = do
-      jl <- liftIO $ readIORef ref
+      jl <- liftBase $ readIORef ref
       logStatus jl
     logRefSuccessF ref = do
-      jl <- liftIO $ readIORef ref
-      liftIO $ writeIORef ref $ jobLogSuccess jl
+      jl <- liftBase $ readIORef ref
+      liftBase $ writeIORef ref $ jobLogSuccess jl
     getRefF ref = do
-      liftIO $ readIORef ref
+      liftBase $ readIORef ref