Skip to content

H
haskell-gargantext
Commit 6db119a9 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

Merge branch 'dev-file-name' of ssh://gitlab.iscpif.fr:20022/gargantext/haskell-gargantext into dev

parents 775049e4 92ba9a94
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 1 deletion
src/Gargantext/API/Corpus/New.hs
View file @ 6db119a9
...@@ -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