[FIX] memory leak, useable ngrams table version (WIP)

src/Gargantext/API/Ngrams.hs

@@ -414,6 +414,7 @@ tableNgramsPostChartsAsync utn logStatus = do
               -- printDebug "[tableNgramsPut] Terms, updating Metrics (Histo), cId" cId
               (logRef, logRefSuccess, getRef) <- runJobLog 6 logStatus
               logRef
+{-
               _ <- Metrics.updateChart cId (Just listId) tabType Nothing
               logRefSuccess
               _ <- Metrics.updatePie cId (Just listId) tabType Nothing
@@ -425,6 +426,7 @@ tableNgramsPostChartsAsync utn logStatus = do
               _ <- Metrics.updateTree cId (Just listId) tabType CandidateTerm
               logRefSuccess
               _ <- Metrics.updateTree cId (Just listId) tabType MapTerm
+-}
               logRefSuccess
 
               getRef

src/Gargantext/Prelude/Job.hs

@@ -48,6 +48,8 @@ runJobLog num logStatus = do
       logStatus jl
     logRefSuccessF ref = do
       jl <- liftBase $ readIORef ref
-      liftBase $ writeIORef ref $ jobLogSuccess jl
+      let jl' = jobLogSuccess jl
+      liftBase $ writeIORef ref jl'
+      logStatus jl'
     getRefF ref = do
       liftBase $ readIORef ref