fix some warnings

src/Gargantext/Components/DocsTable.purs

@@ -16,26 +16,24 @@ import Data.Maybe (Maybe(..), maybe)
 import Data.Set (Set)
 import Data.Set as Set
 import Data.Symbol (SProxy(..))
-import Data.Tuple (Tuple(..), fst, snd)
+import Data.Tuple (Tuple(..), fst)
 import Data.Tuple.Nested ((/\))
-import DOM.Simple.Console (log, log3)
+import DOM.Simple.Console (log3)
 import DOM.Simple.Event as DE
 import Effect (Effect)
 import Effect.Aff (Aff, launchAff)
 import Effect.Class (liftEffect)
 import Reactix as R
 import Reactix.DOM.HTML as H
-------------------------------------------------------------------------
-import Gargantext.Components.Table as T
+
 import Gargantext.Components.Loader (loader)
 import Gargantext.Components.Table as T
 import Gargantext.Ends (Frontends, url)
-import Gargantext.Utils.Reactix as R2
 import Gargantext.Routes as Routes
 import Gargantext.Routes (AppRoute, SessionRoute(NodeAPI))
 import Gargantext.Sessions (Session, sessionId, post, delete, put)
 import Gargantext.Types (NodeType(..), OrderBy(..), TabType, TabPostQuery(..))
-------------------------------------------------------------------------
+import Gargantext.Utils.Reactix as R2
 
 data Category = Trash | UnRead | Checked | Topic | Favorite
 
@@ -73,8 +71,8 @@ cat2score Checked  = 2
 cat2score Topic    = 3
 cat2score Favorite = 4
 
--- caroussel :: Category -> R.Element
-caroussel session nodeId setLocalCategories r cat = H.div {className:"flex"} divs
+-- carousel :: Category -> R.Element
+carousel session nodeId setLocalCategories r cat = H.div {className:"flex"} divs
   where
     divs = map (\c -> if cat == c
                         then
@@ -84,15 +82,15 @@ caroussel session nodeId setLocalCategories r cat = H.div {className:"flex"} div
                           H.div { className : icon c (cat == c)
                             , on: { click: onClick nodeId setLocalCategories r c}
                              } []
-                    ) (caroussel' cat)
+                    ) (carousel' cat)
 
-    caroussel' :: Category -> Array Category
-    caroussel' Trash = take 2 categories
-    caroussel' cat   = take 3 $ drop (cat2score cat - 1 ) categories
+    carousel' :: Category -> Array Category
+    carousel' Trash = take 2 categories
+    carousel' cat   = take 3 $ drop (cat2score cat - 1 ) categories
 
-    onClick nodeId setLocalCategories r cat = \_-> do
-      setLocalCategories $ Map.insert r._id cat
-      void $ launchAff $ putCategories session nodeId $ CategoryQuery {nodeIds: [r._id], category: cat}
+    onClick nodeId' setLocalCats r' cat' = \_-> do
+      setLocalCats $ Map.insert r'._id cat'
+      void $ launchAff $ putCategories session nodeId' $ CategoryQuery {nodeIds: [r'._id], category: cat'}
 
 
 icon :: Category -> Boolean -> String
@@ -409,7 +407,7 @@ pageCpt = R.memo' $ R.hooksComponent "G.C.DocsTable.pageCpt" cpt where
             row (DocumentsView r) =
               { row:
                 [ -- H.div {} [ H.a { className, style, on: {click: click Favorite} } [] ]
-                 caroussel session nodeId setLocalCategories r cat
+                 carousel session nodeId setLocalCategories r cat
                 --, H.input { type: "checkbox", defaultValue: checked, on: {click: click Trash} }
                 -- TODO show date: Year-Month-Day only
                 , H.div { style } [ R2.showText r.date ]

src/Gargantext/Components/Forest/Tree.purs

 module Gargantext.Components.Forest.Tree where
 
-import Prelude ((||))
+import Prelude (Unit, bind, discard, map, pure, void, ($), (+), (<>), (||))
 import DOM.Simple.Console (log2)
-import Data.Maybe (Maybe(..))
+import Data.Maybe (Maybe)
 -- import Data.Newtype (class Newtype)
 import Data.Tuple.Nested ((/\))
 import Effect.Aff (Aff)
@@ -14,7 +14,6 @@ import Gargantext.Ends (Frontends)
 import Gargantext.Components.Loader (loader)
 import Gargantext.Routes (AppRoute)
 import Gargantext.Sessions (Session)
-import Prelude (Unit, bind, discard, map, pure, void, ($), (+), (<>))
 import Reactix as R
 import Reactix.DOM.HTML as H
 

src/Gargantext/Components/Forest/Tree/Node.purs

 module Gargantext.Components.Forest.Tree.Node where
 
-import Prelude
+import Prelude (class Eq, class Show, show, (&&), (<>), (==))
 import Data.Array (foldl)
-import Gargantext.Types
-import Effect.Uncurried (mkEffectFn1)
--- import Data.Set
-import Data.Array (filter)
 import Reactix.DOM.HTML as H
-import Effect.Aff (Aff, launchAff, runAff)
+
+import Gargantext.Types (NodeType(..))
 
 ------------------------------------------------------------------------
 ------------------------------------------------------------------------

src/Gargantext/Components/NgramsTable.purs

@@ -19,7 +19,7 @@ import Data.Lens.Record (prop)
 import Data.List as List
 import Data.Map (Map)
 import Data.Map as Map
-import Data.Maybe (Maybe(..), maybe, fromJust)
+import Data.Maybe (Maybe(..), maybe)
 import Data.Monoid.Additive (Additive(..))
 import Data.Ord.Down (Down(..))
 import Data.Set (Set)

src/Gargantext/Components/NgramsTable/Core.purs

@@ -57,7 +57,7 @@ import Data.Foldable (class Foldable, foldMap, foldl, foldr)
 import Data.FoldableWithIndex (class FoldableWithIndex, foldMapWithIndex, foldlWithIndex, foldrWithIndex)
 import Data.FunctorWithIndex (class FunctorWithIndex, mapWithIndex)
 import Data.Newtype (class Newtype)
-import Data.Lens (Iso', Lens', use, view, (%=), (.~), (?=), (^.), (^?))
+import Data.Lens (Iso', Lens', use, view, (%=), (.~), (?=), (^?))
 import Data.Lens.Common (_Just)
 import Data.Lens.At (class At, at)
 import Data.Lens.Index (class Index, ix)

src/Gargantext/Components/Nodes/Annuaire.purs

@@ -15,7 +15,7 @@ import Gargantext.Ends (url, Frontends)
 import Gargantext.Routes (SessionRoute(..))
 import Gargantext.Routes as Routes
 import Gargantext.Sessions (Session, sessionId, get)
-import Gargantext.Types (NodePath(..), NodeType(..))
+import Gargantext.Types (NodeType(..))
 import Gargantext.Hooks.Loader (useLoader)
 
 newtype IndividuView =

src/Gargantext/Components/Nodes/Annuaire/User/Contacts.purs

@@ -4,14 +4,13 @@ module Gargantext.Components.Nodes.Annuaire.User.Contacts
   , userLayout )
   where
 
-import Prelude (bind, pure, ($), (<<<), (<>), (<$>), show, discard)
+import Prelude (bind, pure, show, ($), (<<<), (<>), (<$>))
 import Data.Array (head)
 import Data.Maybe (Maybe(..), fromMaybe, maybe)
 import Data.Tuple (Tuple(..))
 import Data.Tuple.Nested ((/\))
 import Data.Newtype (unwrap)
 import Data.String (joinWith)
-import DOM.Simple.Console (log2)
 import Effect.Aff (Aff)
 import Reactix as R
 import Reactix.DOM.HTML as H
@@ -21,7 +20,7 @@ import Gargantext.Components.Nodes.Annuaire.User.Contacts.Types
   , ContactWho(..), HyperData(..), HyperdataContact(..) )
 import Gargantext.Components.Nodes.Annuaire.User.Contacts.Tabs as Tabs
 import Gargantext.Hooks.Loader (useLoader)
-import Gargantext.Routes
+import Gargantext.Routes hiding (Annuaire)
 import Gargantext.Ends (Frontends)
 import Gargantext.Sessions (Session, get)
 import Gargantext.Types (NodeType(..))

src/Gargantext/Components/Nodes/Annuaire/User/Contacts/Tabs.purs

@@ -13,7 +13,6 @@ import Gargantext.Components.NgramsTable as NT
 import Gargantext.Components.Tab as Tab
 import Gargantext.Components.Nodes.Annuaire.User.Contacts.Types (ContactData)
 import Gargantext.Ends (Frontends)
-import Gargantext.Routes (AppRoute)
 import Gargantext.Sessions (Session)
 import Gargantext.Types (TabType(..), TabSubType(..), CTabNgramType(..), PTabNgramType(..))
 

src/Gargantext/Components/Nodes/Corpus/Chart/Histo.purs

@@ -11,7 +11,6 @@ import Gargantext.Components.Charts.Options.Series (seriesBarD1)
 import Gargantext.Components.Charts.Options.Color (grey)
 import Gargantext.Components.Charts.Options.Font (itemStyle, mkTooltip, templateFormatter)
 import Gargantext.Components.Charts.Options.Data (dataSerie)
-import Gargantext.Ends (url)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Components.Nodes.Corpus.Chart.Utils as U
 import Gargantext.Routes (SessionRoute(..))

src/Gargantext/Components/Nodes/Corpus/Chart/Metrics.purs

@@ -15,7 +15,6 @@ import Gargantext.Components.Charts.Options.Series (Series, seriesScatterD2)
 import Gargantext.Components.Charts.Options.Color (green, grey, red)
 import Gargantext.Components.Charts.Options.Font (itemStyle, mkTooltip, templateFormatter)
 import Gargantext.Components.Charts.Options.Data (dataSerie)
-import Gargantext.Ends (url)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Components.Nodes.Corpus.Chart.Utils as U
 import Gargantext.Routes (SessionRoute(..))

src/Gargantext/Components/Nodes/Corpus/Chart/Pie.purs

@@ -15,7 +15,6 @@ import Gargantext.Components.Charts.Options.Series (seriesBarD1, seriesPieD1)
 import Gargantext.Components.Charts.Options.Color (blue)
 import Gargantext.Components.Charts.Options.Font (itemStyle, mkTooltip, templateFormatter)
 import Gargantext.Components.Charts.Options.Data (dataSerie)
-import Gargantext.Ends (url)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Components.Nodes.Corpus.Chart.Utils as U
 import Gargantext.Routes (SessionRoute(..))

src/Gargantext/Components/Nodes/Corpus/Chart/Tree.purs

@@ -10,7 +10,6 @@ import Reactix.DOM.HTML as H
 import Gargantext.Components.Charts.Options.ECharts (Options(..), chart, xAxis', yAxis')
 import Gargantext.Components.Charts.Options.Series (TreeNode, Trees(..), mkTree)
 import Gargantext.Components.Charts.Options.Font (mkTooltip, templateFormatter)
-import Gargantext.Ends (url)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Components.Nodes.Corpus.Chart.Utils as U
 import Gargantext.Routes (SessionRoute(..))

src/Gargantext/Components/Search/SearchBar.purs

@@ -2,9 +2,8 @@ module Gargantext.Components.Search.SearchBar
   ( Props, searchBar, searchBarCpt
   ) where
 
-import Prelude (Unit, bind, discard, not, pure, show, ($), (<>), map)
+import Prelude (Unit, bind, discard, pure, ($))
 import Data.Maybe (Maybe(..))
-import Data.Array (nub, concat)
 import Data.Newtype (over)
 import Data.Tuple.Nested ((/\))
 import Effect (Effect)

src/Gargantext/Components/Search/SearchField.purs

 module Gargantext.Components.Search.SearchField
   ( Search, Props, defaultSearch, searchField, searchFieldComponent, isIsTex) where
 
-import Prelude
+import Prelude hiding (div)
 import Data.Maybe (Maybe(..), maybe, isJust)
 import Data.String (length)
 import Data.Set as Set