Skip to content

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

where->let

parent e102ceaa
Pipeline #799 canceled with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 6 additions and 5 deletions
    src/Gargantext/API.hs
    View file @ 1a6709bb
    ...@@ -435,11 +435,12 @@ addWithFile cid i f = ...@@ -435,11 +435,12 @@ 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 log') JobFunction (\i log ->
    where let
    log' x = do log' x = do
    printDebug "addCorpusWithForm" x printDebug "addCorpusWithForm" x
    liftIO $ log x liftIO $ log x
    in New.addToCorpusWithForm cid i log')
    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