Skip to content

haskell-gargantext
haskell-gargantext
Commit e9a4cf90 authored by Nicolas Pouillard's avatar Nicolas Pouillard
Browse files
Options

comment

parent 3870ee90
Pipeline #1130 failed with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 3 additions and 0 deletions
    src/Gargantext/API/Admin/Settings.hs
    View file @ e9a4cf90
    ......@@ -110,6 +110,9 @@ repoSaverAction repoDir a = do
    hClose h
    renameFile fp (repoSnapshot repoDir)
    -- The use of mkDebounce makes sure that repoSaverAction is not called too often.
    -- If repoSaverAction start taking more time than the debounceFreq then it should
    -- be increased.
    mkRepoSaver :: RepoDirFilePath -> MVar NgramsRepo -> IO (IO ())
    mkRepoSaver repoDir repo_var = mkDebounce settings
    where
    ......
    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