Skip to content

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

[FIX] merge

parents 87af1cf1 ee353325
Pipeline #2004 failed with stage
    in 10 minutes and 21 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 0 additions and 3 deletions
    src/Gargantext/API/Node/DocumentUpload.hs
    View file @ f12d1533
    ...@@ -81,7 +81,6 @@ documentUpload uId nId doc logStatus = do ...@@ -81,7 +81,6 @@ documentUpload uId nId doc logStatus = do
    , _scst_remaining = Just 1 , _scst_remaining = Just 1
    , _scst_events = Just [] } , _scst_events = Just [] }
    logStatus jl logStatus jl
    mcId <- getClosestParentIdByType' nId NodeCorpus mcId <- getClosestParentIdByType' nId NodeCorpus
    let cId = case mcId of let cId = case mcId of
    Just c -> c Just c -> c
    ...@@ -89,7 +88,6 @@ documentUpload uId nId doc logStatus = do ...@@ -89,7 +88,6 @@ documentUpload uId nId doc logStatus = do
    (year, month, day) <- liftBase $ getCurrentTime >>= return . toGregorian . utctDay (year, month, day) <- liftBase $ getCurrentTime >>= return . toGregorian . utctDay
    let nowS = T.pack $ show year <> "-" <> show month <> "-" <> show day let nowS = T.pack $ show year <> "-" <> show month <> "-" <> show day
    let hd = HyperdataDocument { _hd_bdd = Nothing let hd = HyperdataDocument { _hd_bdd = Nothing
    , _hd_doi = Nothing , _hd_doi = Nothing
    , _hd_url = Nothing , _hd_url = Nothing
    ...@@ -109,7 +107,6 @@ documentUpload uId nId doc logStatus = do ...@@ -109,7 +107,6 @@ documentUpload uId nId doc logStatus = do
    , _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 $ T.pack $ show EN }
    _ <- flowDataText (RootId (NodeId uId)) (DataNew [[hd]]) (Multi EN) cId Nothing _ <- flowDataText (RootId (NodeId uId)) (DataNew [[hd]]) (Multi EN) cId Nothing
    pure $ jobLogSuccess jl pure $ jobLogSuccess jl
    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