[nodeStory] some more config repo path refactoring

src/Gargantext/API/Ngrams/Tools.hs

@@ -23,10 +23,9 @@ import Data.Set (Set)
 import Data.Validity
 import Gargantext.API.Ngrams.Types
 import Gargantext.Core.Types (ListType(..), NodeId, NodeType(..), ListId)
-import Gargantext.Database.Prelude (CmdM, HasConnectionPool(..), hasConfig)
+import Gargantext.Database.Prelude (CmdM, HasConnectionPool(..))
 import Gargantext.Database.Schema.Ngrams (NgramsType)
 import Gargantext.Prelude
-import Gargantext.Prelude.Config (gc_repofilepath)
 import qualified Data.HashMap.Strict as HM
 import qualified Data.Map.Strict     as Map
 import qualified Data.Set            as Set
@@ -205,8 +204,7 @@ migrateFromDirToDb = do
   pool <- view connPool
   listIds <- liftBase $ getNodesIdWithType pool NodeList
   printDebug "[migrateFromDirToDb] listIds" listIds
-  repoFP <- view $ hasConfig . gc_repofilepath
-  (NodeStory nls) <- NSF.getRepoNoEnv repoFP listIds
+  (NodeStory nls) <- NSF.getRepoReadConfig listIds
   printDebug "[migrateFromDirToDb] nls" nls
   _ <- mapM (\(nId, a) -> do
                 n <- liftBase $ nodeExists pool nId

src/Gargantext/Core/NodeStoryFile.hs

@@ -12,8 +12,9 @@ import Control.Concurrent (MVar(), modifyMVar_, newMVar, readMVar, withMVar)
 import Control.Debounce (mkDebounce, defaultDebounceSettings, debounceFreq, debounceAction)
 import Gargantext.Core.NodeStory hiding (readNodeStoryEnv)
 import Gargantext.Core.Types (ListId, NodeId(..))
-import Gargantext.Database.Prelude (CmdM)
+import Gargantext.Database.Prelude (CmdM, hasConfig)
 import Gargantext.Prelude
+import Gargantext.Prelude.Config (gc_repofilepath)
 import System.Directory (renameFile, createDirectoryIfMissing, doesFileExist, removeFile)
 import System.IO (FilePath, hClose)
 import System.IO.Temp (withTempFile)
@@ -34,10 +35,11 @@ getRepo listIds = do
   -- v' <- liftBase $ readMVar v
   -- pure $ v'
 
-getRepoNoEnv :: (CmdM env err m)
-             => NodeStoryDir -> [ListId] -> m NodeListStory
-getRepoNoEnv dir listIds = do
-  env <- liftBase $ readNodeStoryEnv dir
+getRepoReadConfig :: (CmdM env err m)
+             => [ListId] -> m NodeListStory
+getRepoReadConfig listIds = do
+  repoFP <- view $ hasConfig . gc_repofilepath
+  env <- liftBase $ readNodeStoryEnv repoFP
   let g = view nse_getter env
   liftBase $ do
     v <- g listIds