Skip to content

haskell-gargantext
haskell-gargantext
Commit 92ba9a94 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[API] file name added to corpus new endpoint

parent 989cc231
Pipeline #772 failed with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 1 deletion
    src/Gargantext/API/Corpus/New.hs
    View file @ 92ba9a94
    ...@@ -130,6 +130,7 @@ data WithForm = WithForm ...@@ -130,6 +130,7 @@ data WithForm = WithForm
    { _wf_filetype :: !FileType { _wf_filetype :: !FileType
    , _wf_data :: !Text , _wf_data :: !Text
    , _wf_lang :: !(Maybe Lang) , _wf_lang :: !(Maybe Lang)
    , _wf_name :: !Text
    } deriving (Eq, Show, Generic) } deriving (Eq, Show, Generic)
    makeLenses ''WithForm makeLenses ''WithForm
    ...@@ -241,7 +242,7 @@ addToCorpusWithForm :: FlowCmdM env err m ...@@ -241,7 +242,7 @@ addToCorpusWithForm :: FlowCmdM env err m
    -> WithForm -> WithForm
    -> (ScraperStatus -> m ()) -> (ScraperStatus -> m ())
    -> m ScraperStatus -> m ScraperStatus
    addToCorpusWithForm cid (WithForm ft d l) logStatus = do addToCorpusWithForm cid (WithForm ft d l _n) logStatus = do
    printDebug "ft" ft printDebug "ft" ft
    ......
    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