Skip to content

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

Merge remote-tracking branch 'origin/141-dev-node-stories-db-optimization' into dev

parents 9ea8f1fd 38be4669
Pipeline #3174 passed with stage
    in 92 minutes and 18 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 1 addition and 2 deletions
    src/Gargantext/Core/NodeStory.hs
    View file @ a8e7e6de
    ...@@ -466,8 +466,7 @@ deleteArchiveList c nodeId a = do ...@@ -466,8 +466,7 @@ deleteArchiveList c nodeId a = do
    pure () pure ()
    where where
    query :: PGS.Query query :: PGS.Query
    query = [sql| WITH (SELECT id FROM ngrams WHERE terms = ?) AS ngrams query = [sql| DELETE FROM node_stories
    DELETE FROM node_stories
    WHERE node_id = ? AND ngrams_type_id = ? AND ngrams_id IN (SELECT id FROM ngrams WHERE terms = ?) |] WHERE node_id = ? AND ngrams_type_id = ? AND ngrams_id IN (SELECT id FROM ngrams WHERE terms = ?) |]
    updateArchiveList :: PGS.Connection -> NodeId -> ArchiveList -> IO () updateArchiveList :: PGS.Connection -> NodeId -> ArchiveList -> IO ()
    ......
    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