[upload] try to slow down upload with threadDelay

src/Gargantext/API/Node/Corpus/New.hs

@@ -18,7 +18,9 @@ New corpus means either:
 module Gargantext.API.Node.Corpus.New
       where
 
+import Control.Concurrent
 import Control.Lens hiding (elements, Empty)
+import Control.Monad.IO.Class (liftIO, MonadIO)
 import Data.Aeson
 import Data.Aeson.TH (deriveJSON)
 import Data.Either
@@ -252,7 +254,10 @@ addToCorpusWithForm user cid (NewWithForm ft d l _n) logStatus = do
       <$> take 1000000
       <$> parse (cs d)
 
-  printDebug "Parsing corpus finished : " cid
+  printDebug "[addToCorpusWithForm] delaying : " cid
+  liftIO $ threadDelay 1000
+
+  printDebug "[addToCorpusWithForm] Parsing corpus finished : " cid
   logStatus JobLog { _scst_succeeded = Just 1
                    , _scst_failed    = Just 0
                    , _scst_remaining = Just 1
@@ -260,14 +265,14 @@ addToCorpusWithForm user cid (NewWithForm ft d l _n) logStatus = do
                    }
 
 
-  printDebug "Starting extraction     : " cid
+  printDebug "[addToCorpusWithForm] Starting extraction     : " cid
   -- TODO granularity of the logStatus
   _cid' <- flowCorpus user
                      (Right [cid])
                      (Multi $ fromMaybe EN l)
                      (map (map toHyperdataDocument) docs)
 
-  printDebug "Extraction finished   : " cid
+  printDebug "[addToCorpusWithForm] Extraction finished   : " cid
   pure      JobLog { _scst_succeeded = Just 2
                    , _scst_failed    = Just 0
                    , _scst_remaining = Just 0