Skip to content

P
purescript-gargantext
Commit bcdff0bb authored by Karen Konou's avatar Karen Konou
Browse files
Options

[Subcorpus] Warn on missing corpus ID

parent 514b4eee
Pipeline #7316 passed with stages
        in 26 minutes and 7 seconds
        Hide whitespace changes
        Inline Side-by-side
        Showing with 10 additions and 7 deletions
        src/Gargantext/Components/DocsTable.purs
        View file @ bcdff0bb
        ...@@ -188,13 +188,16 @@ docViewCpt = R2.hereComponent here "docView" hCpt ...@@ -188,13 +188,16 @@ docViewCpt = R2.hereComponent here "docView" hCpt
        liftEffect $ liftEffect $
        T.write_ true onSubcorpusCreationPending T.write_ true onSubcorpusCreationPending
        res <- createSubCorpus session (fromMaybe 0 mCorpusId) $ SubcorpusParams { query: q, reuseParentList: p } case mCorpusId of
        liftEffect $ do Nothing -> liftEffect $ here.warn2 "[docsTable subCorpusButton RESTError]" mCorpusId
        case res of Just cId -> do
        Left err -> here.warn2 "[docsTable subSorpusButton RESTError]" err res <- createSubCorpus session cId $ SubcorpusParams { query: q, reuseParentList: p }
        Right id -> do liftEffect $ do
        T2.reload reloadForest case res of
        goToRoute $ Routes.Corpus (sessionId session) id Left err -> here.warn2 "[docsTable subCorpusButton RESTError]" err
        Right id -> do
        T2.reload reloadForest
        goToRoute $ Routes.Corpus (sessionId session) id
        -- handleRESTError hp errors eTask -- handleRESTError hp errors eTask
        -- \t -> liftEffect $ launchDocumentCreationProgress -- \t -> liftEffect $ launchDocumentCreationProgress
        ......
        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