Skip to content

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

Debug info in addCorpusWithForm

parent 5850ff95
Hide whitespace changes
Inline Side-by-side
Showing with 5 additions and 1 deletion
src/Gargantext/API.hs
View file @ e102ceaa
...@@ -435,7 +435,11 @@ addWithFile cid i f = ...@@ -435,7 +435,11 @@ addWithFile cid i f =
addCorpusWithForm :: GargServer New.AddWithForm addCorpusWithForm :: GargServer New.AddWithForm
addCorpusWithForm cid = addCorpusWithForm cid =
serveJobsAPI $ serveJobsAPI $
JobFunction (\i log -> New.addToCorpusWithForm cid i (liftIO . log)) JobFunction (\i log -> New.addToCorpusWithForm cid i log')
where
log' x = do
printDebug "addCorpusWithForm" x
liftIO $ log x
addAnnuaireWithForm :: GargServer Annuaire.AddWithForm addAnnuaireWithForm :: GargServer Annuaire.AddWithForm
addAnnuaireWithForm cid = addAnnuaireWithForm cid =
......
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