sourcephile
/
git
/
gargantext.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
[FEAT] Adding Visio micro-service (Jitsi)
[gargantext.git]
/
src
/
Gargantext
/
Prelude
/
Job.hs
diff --git
a/src/Gargantext/Prelude/Job.hs
b/src/Gargantext/Prelude/Job.hs
index 476c383f43328f40041569cbf53685f8a508b64d..4f7564054521616aae1cbeef8ee4a01472a97acb 100644
(file)
--- a/
src/Gargantext/Prelude/Job.hs
+++ b/
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