Skip to content

haskell-gargantext
haskell-gargantext
Commit 2e75a2ed authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] initRepo.

parent f7f4c9cc
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/Gargantext/API/Settings.hs
View file @ 2e75a2ed
...@@ -58,7 +58,7 @@ import Control.Monad.Reader ...@@ -58,7 +58,7 @@ import Control.Monad.Reader
import Control.Lens import Control.Lens
import Gargantext.Prelude import Gargantext.Prelude
import Gargantext.Database.Utils (databaseParameters, HasConnection(..), Cmd', runCmd) import Gargantext.Database.Utils (databaseParameters, HasConnection(..), Cmd', runCmd)
import Gargantext.API.Ngrams (NgramsRepo, HasRepoVar(..), HasRepoSaver(..), initMockRepo, r_version, saveRepo) import Gargantext.API.Ngrams (NgramsRepo, HasRepoVar(..), HasRepoSaver(..), r_version, saveRepo, initRepo)
import Gargantext.API.Orchestrator.Types import Gargantext.API.Orchestrator.Types
type PortNumber = Int type PortNumber = Int
...@@ -186,7 +186,7 @@ readRepo = do ...@@ -186,7 +186,7 @@ readRepo = do
copyFile repoSnapshot archive copyFile repoSnapshot archive
pure repo pure repo
else else
pure mempty pure initRepo
mkRepoSaver :: MVar NgramsRepo -> IO (IO ()) mkRepoSaver :: MVar NgramsRepo -> IO (IO ())
mkRepoSaver repo_var = do mkRepoSaver repo_var = do
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment