Skip to content

haskell-gargantext
haskell-gargantext
Commit 5e158649 authored by Karen Konou's avatar Karen Konou
Browse files
Options

[Document upload] fix date parsing

parent 04e82dd6
Pipeline #4410 passed with stage
    in 27 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 1 addition and 1 deletion
    src/Gargantext/API/Node/DocumentUpload.hs
    View file @ 5e158649
    ...@@ -95,7 +95,7 @@ documentUpload nId doc = do ...@@ -95,7 +95,7 @@ documentUpload nId doc = do
    (theFullDate, (year, month, day)) <- liftBase $ dateSplit EN (theFullDate, (year, month, day)) <- liftBase $ dateSplit EN
    $ Just $ Just
    $ view du_date doc <> "T:0:0:0" $ view du_date doc
    let hd = HyperdataDocument { _hd_bdd = Nothing let hd = HyperdataDocument { _hd_bdd = Nothing
    , _hd_doi = Nothing , _hd_doi = Nothing
    ......
    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