From d51a608e61970db2121eda6cd61f190a47589ce5 Mon Sep 17 00:00:00 2001
From: Przemek Kaminski <pk@intrepidus.pl>
Date: Wed, 9 Sep 2020 19:37:27 +0200
Subject: [PATCH] [annuaire,texts] clear cache toggle button
---
src/Gargantext/Components/Nodes/Annuaire.purs | 5 +++--
src/Gargantext/Components/Nodes/Texts.purs | 4 +++-
2 files changed, 6 insertions(+), 3 deletions(-)
diff --git a/src/Gargantext/Components/Nodes/Annuaire.purs b/src/Gargantext/Components/Nodes/Annuaire.purs
index 196f7376..7c950080 100644
--- a/src/Gargantext/Components/Nodes/Annuaire.purs
+++ b/src/Gargantext/Components/Nodes/Annuaire.purs
@@ -7,12 +7,13 @@ import Data.List as L
import Data.Maybe (Maybe(..), maybe, fromMaybe)
import Data.Tuple (fst, snd)
import Data.Tuple.Nested ((/\))
-import Effect.Aff (Aff)
+import Effect.Aff (Aff, launchAff_)
import Reactix as R
import Reactix.DOM.HTML as H
import Gargantext.Prelude
+import Gargantext.Components.NgramsTable.Loader (clearCache)
import Gargantext.Components.Nodes.Annuaire.User.Contacts.Types as CT
import Gargantext.Components.Nodes.Lists.Types as NT
import Gargantext.Components.Table as T
@@ -92,7 +93,7 @@ annuaireCpt = R2.hooksComponent thisModule "annuaire" cpt
cacheState <- R.useState' NT.CacheOn
pure $ R.fragment
- [ T.tableHeaderLayout { afterCacheStateChange: \_ -> pure unit
+ [ T.tableHeaderLayout { afterCacheStateChange: \_ -> launchAff_ $ clearCache unit
, cacheState
, date
, desc: name
diff --git a/src/Gargantext/Components/Nodes/Texts.purs b/src/Gargantext/Components/Nodes/Texts.purs
index 25b6e315..8adf1174 100644
--- a/src/Gargantext/Components/Nodes/Texts.purs
+++ b/src/Gargantext/Components/Nodes/Texts.purs
@@ -5,11 +5,13 @@ import Data.Generic.Rep (class Generic)
import Data.Generic.Rep.Show (genericShow)
import Data.Maybe (Maybe(..))
import Data.Tuple.Nested ((/\))
+import Effect.Aff (launchAff_)
import Reactix as R
import Reactix.DOM.HTML as H
--------------------------------------------------------
import Gargantext.Components.DocsTable as DT
import Gargantext.Components.Loader (loader)
+import Gargantext.Components.NgramsTable.Loader (clearCache)
import Gargantext.Components.Node (NodePoly(..))
import Gargantext.Components.Nodes.Corpus (loadCorpusWithChild)
import Gargantext.Components.Nodes.Corpus.Chart.Histo (histo)
@@ -64,7 +66,7 @@ textsLayoutWithKeyCpt = R2.hooksComponent thisModule "textsLayoutWithKey" cpt
title = "Corpus " <> name
R.fragment [
- Table.tableHeaderLayout { afterCacheStateChange: \_ -> pure unit
+ Table.tableHeaderLayout { afterCacheStateChange: \_ -> launchAff_ $ clearCache unit
, cacheState
, date
, desc
--
2.21.0