[CLEAN] some warnings

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

@@ -4,10 +4,9 @@ module Gargantext.Components.Nodes.Annuaire.User
   )
   where
 
-import Gargantext.Prelude (Unit, bind, const, discard, pure, show, ($), (<$>), (<<<), (<>))
+import Gargantext.Prelude (Unit, bind, discard, pure, show, ($), (<$>), (<<<), (<>))
 import Data.Lens as L
 import Data.Maybe (Maybe(..), fromMaybe)
-import Data.Tuple.Nested ((/\))
 import Effect (Effect)
 import Effect.Aff (Aff, launchAff_)
 import Effect.Class (liftEffect)
@@ -147,8 +146,10 @@ contactInfoItemCpt = here.component "contactInfoItem" cpt
               let newHyperdata = (L.over cLens (\_ -> R.readRef valueRef) hyperdata) :: HyperdataUser
               onUpdateHyperdata newHyperdata
 
+{-
 listElement :: Array R.Element -> R.Element
 listElement = H.li { className: "list-group-item justify-content-between" }
+-}
 
 type LayoutNoSessionProps =
   ( frontends      :: Frontends

src/Gargantext/Components/Router.purs

@@ -57,7 +57,7 @@ router :: R2.Leaf Props
 router props = R.createElement routerCpt props []
 routerCpt :: R.Component Props
 routerCpt = here.component "router" cpt where
-  cpt { boxes: boxes@{ handed, showTree } } _ = do
+  cpt { boxes: boxes@{ handed } } _ = do
     handed'       <- T.useLive T.unequal handed
 
     let handedClassName = case handed' of