Skip to content

haskell-gargantext
haskell-gargantext
Commit d789dbf4 authored by Fabien Manière's avatar Fabien Manière
Browse files
Options

just add a condition for a prefix

parent 555a1c96
Pipeline #5480 failed with stages
          in 37 minutes and 35 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 2 additions and 2 deletions
          src/Gargantext/Core/Text/Corpus/API/Hal.hs
          View file @ d789dbf4
          ...@@ -56,8 +56,8 @@ toDoc' la (HAL.Corpus { .. }) = do ...@@ -56,8 +56,8 @@ toDoc' la (HAL.Corpus { .. }) = do
          , _hd_uniqIdBdd = Nothing , _hd_uniqIdBdd = Nothing
          , _hd_page = Nothing , _hd_page = Nothing
          , _hd_title = Just $ intercalate " " _corpus_title , _hd_title = Just $ intercalate " " _corpus_title
          , _hd_authors = Just $ foldl (\x y -> x <> ", " <> y) "" _corpus_authors_names , _hd_authors = Just $ foldl (\x y -> if x == "" then y else x <> ", " <> y) "" _corpus_authors_names
          , _hd_institutes = Just $ foldl (\x y -> x <> ", " <> y) "" $ _corpus_authors_affiliations <> map show _corpus_struct_id , _hd_institutes = Just $ foldl (\x y -> if x == "" then y else x <> ", " <> y) "" $ _corpus_authors_affiliations <> map show _corpus_struct_id
          , _hd_source = Just $ maybe "Nothing" identity _corpus_source , _hd_source = Just $ maybe "Nothing" identity _corpus_source
          , _hd_abstract = Just abstract , _hd_abstract = Just abstract
          , _hd_publication_date = fmap show utctime , _hd_publication_date = fmap show utctime
          ......
          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