Skip to content

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

[FIX] removing refresh database

parent cac4e8ab
Pipeline #4140 passed with stages
          in 70 minutes and 5 seconds
          Show whitespace changes
          Inline Side-by-side
          Showing with 3 additions and 3 deletions
          src/Gargantext/Database/Action/Metrics.hs
          View file @ 343c70ee
          ...@@ -35,7 +35,7 @@ import Gargantext.Core.Types.Query (Limit(..)) ...@@ -35,7 +35,7 @@ import Gargantext.Core.Types.Query (Limit(..))
          import Gargantext.Database.Action.Flow.Types (FlowCmdM) import Gargantext.Database.Action.Flow.Types (FlowCmdM)
          import Gargantext.Database.Action.Metrics.NgramsByContext (getContextsByNgramsOnlyUser{-, getTficfWith-}) import Gargantext.Database.Action.Metrics.NgramsByContext (getContextsByNgramsOnlyUser{-, getTficfWith-})
          import Gargantext.Database.Admin.Config (userMaster) import Gargantext.Database.Admin.Config (userMaster)
          import Gargantext.Database.Action.Metrics.NgramsByContext (refreshNgramsMaterialized) -- import Gargantext.Database.Action.Metrics.NgramsByContext (refreshNgramsMaterialized)
          import Gargantext.Database.Admin.Types.Node (ListId, CorpusId) import Gargantext.Database.Admin.Types.Node (ListId, CorpusId)
          import Gargantext.Database.Query.Table.Node (defaultList) import Gargantext.Database.Query.Table.Node (defaultList)
          import Gargantext.Database.Query.Table.Node.Select import Gargantext.Database.Query.Table.Node.Select
          ...@@ -129,7 +129,7 @@ updateNgramsOccurrences' cId maybeListId maybeLimit tabType = do ...@@ -129,7 +129,7 @@ updateNgramsOccurrences' cId maybeListId maybeLimit tabType = do
          res <- map (\(Only a) -> a) <$> runPGSQuery queryInsert (Only $ Values fields toInsert) res <- map (\(Only a) -> a) <$> runPGSQuery queryInsert (Only $ Values fields toInsert)
          -- _ <- map (\(Only a) -> a) <$> runPGSQuery [sql|refresh materialized view context_node_ngrams_view;|] () -- _ <- map (\(Only a) -> a) <$> runPGSQuery [sql|refresh materialized view context_node_ngrams_view;|] ()
          _ <- refreshNgramsMaterialized -- _ <- refreshNgramsMaterialized
          pure res pure res
          ......
          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