Skip to content

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

Merge remote-tracking branch 'origin/445-dev-doc-upload-lang' into dev

parents 48700649 dcc4bd5f
Pipeline #3448 passed with stage
    in 90 minutes and 54 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 1 deletion
    src/Gargantext/API/Node/DocumentUpload.hs
    View file @ f71cdadf
    ...@@ -37,6 +37,7 @@ data DocumentUpload = DocumentUpload ...@@ -37,6 +37,7 @@ data DocumentUpload = DocumentUpload
    , _du_sources :: T.Text , _du_sources :: T.Text
    , _du_title :: T.Text , _du_title :: T.Text
    , _du_date :: T.Text , _du_date :: T.Text
    , _du_language :: T.Text
    } }
    deriving (Generic) deriving (Generic)
    ...@@ -121,7 +122,7 @@ documentUpload nId doc = do ...@@ -121,7 +122,7 @@ documentUpload nId doc = do
    , _hd_publication_hour = Nothing , _hd_publication_hour = Nothing
    , _hd_publication_minute = Nothing , _hd_publication_minute = Nothing
    , _hd_publication_second = Nothing , _hd_publication_second = Nothing
    , _hd_language_iso2 = Just $ T.pack $ show EN } , _hd_language_iso2 = Just $ view du_language doc }
    docIds <- insertMasterDocs (Nothing :: Maybe HyperdataCorpus) (Multi EN) [hd] docIds <- insertMasterDocs (Nothing :: Maybe HyperdataCorpus) (Multi EN) [hd]
    _ <- Doc.add cId docIds _ <- Doc.add cId docIds
    ......
    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