Skip to content

H
haskell-gargantext
Commit 87c88da5 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[ngrams] fix listId in charts update

parent 4252ada3
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 6 deletions
src/Gargantext/API/Ngrams.hs
View file @ 87c88da5
......@@ -358,17 +358,17 @@ tableNgramsPut tabType listId (Versioned p_version p_table)
pure ()
Just cId -> do
printDebug "[tableNgramsPut] updating scatter cId" cId
_ <- Metrics.updateScatter cId Nothing tabType Nothing
_ <- Metrics.updateScatter cId (Just listId) tabType Nothing
printDebug "[tableNgramsPut] updating chart cId" cId
_ <- Metrics.updateChart cId Nothing tabType Nothing
_ <- Metrics.updateChart cId (Just listId) tabType Nothing
printDebug "[tableNgramsPut] updating pie cId" cId
_ <- Metrics.updatePie cId Nothing tabType Nothing
_ <- Metrics.updatePie cId (Just listId) tabType Nothing
printDebug "[tableNgramsPut] updating tree StopTerm, cId" cId
_ <- Metrics.updateTree cId Nothing tabType StopTerm
_ <- Metrics.updateTree cId (Just listId) tabType StopTerm
printDebug "[tableNgramsPut] updating tree CandidateTerm, cId" cId
_ <- Metrics.updateTree cId Nothing tabType CandidateTerm
_ <- Metrics.updateTree cId (Just listId) tabType CandidateTerm
printDebug "[tableNgramsPut] updating tree MapTerm, cId" cId
_ <- Metrics.updateTree cId Nothing tabType MapTerm
_ <- Metrics.updateTree cId (Just listId) tabType MapTerm
pure ()
pure ret
......
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