[graph] add debug info for graph, no partition error
[gargantext.git] / src / Gargantext / Prelude / Job.hs
index 476c383f43328f40041569cbf53685f8a508b64d..4f7564054521616aae1cbeef8ee4a01472a97acb 100644 (file)
@@ -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