Skip to content

haskell-gargantext
haskell-gargantext
Commit 4a1fcb80 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

Merge remote-tracking branch 'origin/443-dev-doc-upload-improvement' into dev

parents 444d9e8d 42a78048
Show whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
src/Gargantext/API/Node/DocumentUpload.hs
View file @ 4a1fcb80
...@@ -110,7 +110,7 @@ documentUpload nId doc = do ...@@ -110,7 +110,7 @@ documentUpload nId doc = do
, _hd_uniqId = Nothing , _hd_uniqId = Nothing
, _hd_uniqIdBdd = Nothing , _hd_uniqIdBdd = Nothing
, _hd_page = Nothing , _hd_page = Nothing
, _hd_title = Just $ view du_title doc , _hd_title = Just $ if view du_title doc == "" then T.take 50 (view du_abstract doc) else view du_title doc
, _hd_authors = Just $ view du_authors doc , _hd_authors = Just $ view du_authors doc
, _hd_institutes = Nothing , _hd_institutes = Nothing
, _hd_source = Just $ view du_sources doc , _hd_source = Just $ view du_sources doc
......
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