[FIX] bug MVar fixed

src/Gargantext/API/Ngrams.hs

@@ -183,7 +183,6 @@ saveRepo :: ( MonadReader env m, MonadBase IO m, HasNodeStorySaver env )
 saveRepo = liftBase =<< view hasNodeStorySaver
 
 
-
 listTypeConflictResolution :: ListType -> ListType -> ListType
 listTypeConflictResolution _ _ = undefined -- TODO Use Map User ListType
 
@@ -308,7 +307,8 @@ commitStatePatch listId (Versioned p_version p) = do
     assertValid $ transformable p q
     assertValid $ applicable p' (r ^. r_state)
     -}
-    printDebug "a version" (a ^. a_version)
+    printDebug "[commitStatePatch] a version" (a ^. a_version)
+    printDebug "[commitStatePatch] a' version" (a' ^. a_version)
     pure ( ns & unNodeStory . at listId .~ (Just a')
          , Versioned (a' ^. a_version) q'
          )
@@ -780,7 +780,6 @@ apiNgramsTableDoc dId =  getTableNgramsDoc          dId
                     :<|> scoresRecomputeTableNgrams dId
                     :<|> getTableNgramsVersion      dId
                     :<|> apiNgramsAsync             dId
-                    -- > index all the corpus accordingly (TODO AD)
 
 apiNgramsAsync :: NodeId -> GargServer TableNgramsAsyncApi
 apiNgramsAsync _dId =

src/Gargantext/Core/NodeStory.hs

@@ -18,7 +18,7 @@ module Gargantext.Core.NodeStory where
 -- import Debug.Trace (traceShow)
 import Codec.Serialise (serialise, deserialise)
 import Codec.Serialise.Class 
-import Control.Concurrent (MVar(), withMVar, newMVar)
+import Control.Concurrent (MVar(), withMVar, newMVar, modifyMVar_)
 import Control.Debounce (mkDebounce, defaultDebounceSettings, debounceFreq, debounceAction)
 import Control.Lens (makeLenses, Getter, (^.))
 import Control.Monad.Except
@@ -98,8 +98,8 @@ nodeStoryVar :: NodeStoryDir
              -> IO (MVar NodeListStory)
 nodeStoryVar nsd Nothing ni = nodeStoryInc nsd Nothing ni >>= newMVar
 nodeStoryVar nsd (Just mv) ni = do
-  mv' <- withMVar mv pure
-  nodeStoryInc nsd (Just mv') ni >>= newMVar
+  _ <- modifyMVar_ mv $ \mv' -> (nodeStoryInc nsd (Just mv') ni)
+  pure mv
 
 
 nodeStoryInc :: NodeStoryDir -> Maybe NodeListStory -> NodeId -> IO NodeListStory