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
Pipeline #798 canceled with stage
    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 =
    addCorpusWithForm :: GargServer New.AddWithForm
    addCorpusWithForm cid =
    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 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