Merge branch '505-dev-search-query-performance-fix' into 'dev'

Resolve "On IMT Instance : Error message or crashes when changing the status of terms in large batch"

See merge request !445

src/Gargantext/Database/Action/Metrics/NgramsByContext.hs

@@ -132,7 +132,8 @@ getOccByNgramsOnlyFast_withSample cId int nt ngs =
   HM.fromListWith (+) <$> selectNgramsOccurrencesOnlyByContextUser_withSample cId int nt ngs
 
 
--- Returns occurrences of ngrams in given corpus/list (for each ngram, a list of contexts is returned)
+-- | Returns occurrences of ngrams in given corpus/list (for each
+-- ngram, a list of contexts is returned)
 getOccByNgramsOnlyFast :: CorpusId
                        -> ListId
                        -> NgramsType
@@ -154,34 +155,39 @@ getOccByNgramsOnlyFast cId lId nt = do
 
       query :: DPS.Query
       query = [sql|
-                WITH cnnv AS
-                ( SELECT DISTINCT context_node_ngrams.context_id,
-                    context_node_ngrams.ngrams_id,
-                    nodes_contexts.node_id,
-                    nodes_contexts.category
-                  FROM nodes_contexts
-                  JOIN context_node_ngrams ON context_node_ngrams.context_id = nodes_contexts.context_id
+                WITH nc AS (
+                  SELECT DISTINCT context_id
+                    FROM nodes_contexts
+                      WHERE node_id = ?
+                       AND category > 0
+                ),
+                cnnv AS
+                ( SELECT DISTINCT context_id,
+                                  ngrams_id
+                  FROM context_node_ngrams
+                  WHERE context_id IN (SELECT context_id FROM nc)
                 ),
-                node_context_ids AS
-                  (SELECT context_id, ngrams_id, terms
-                  FROM cnnv
-                  JOIN ngrams ON cnnv.ngrams_id = ngrams.id
-                  WHERE node_id = ? AND cnnv.category > 0
-                  ),
                 ncids_agg AS
-                  (SELECT ngrams_id, terms, array_agg(DISTINCT context_id) AS agg
-                    FROM node_context_ids
-                    GROUP BY (ngrams_id, terms)),
+                ( SELECT array_agg(DISTINCT context_id) AS agg,
+                         ngrams_id,
+                         terms
+                  FROM cnnv
+                  JOIN ngrams
+                    ON cnnv.ngrams_id = ngrams.id
+                  GROUP BY (ngrams_id, terms)
+                ),
                 ns AS
                   (SELECT ngrams_id, terms
                     FROM node_stories
-                    JOIN ngrams ON ngrams_id = ngrams.id
-                    WHERE node_id = ? AND ngrams_type_id = ?
+                    JOIN ngrams
+                      ON ngrams_id = ngrams.id
+                      WHERE node_id = ? AND ngrams_type_id = ?
                   )
 
                 SELECT ns.terms, CASE WHEN agg IS NULL THEN '{}' ELSE agg END
                 FROM ns
-                LEFT JOIN ncids_agg ON ns.ngrams_id = ncids_agg.ngrams_id
+                LEFT JOIN ncids_agg
+                  ON ns.ngrams_id = ncids_agg.ngrams_id
         |]
       -- query = [sql|
       --           WITH node_context_ids AS