Merge branch 'dev' into dev-searx-parser

shell.nix

@@ -62,7 +62,7 @@ let
   repl = pkgs.writeShellScriptBin "repl" ''
     #!/usr/bin/env bash
 
-    pulp repl
+    spago repl
   '';
 
   test-ps = pkgs.writeShellScriptBin "test-ps" ''

src/Gargantext/Components/Annotation/AnnotatedField.purs

@@ -70,7 +70,7 @@ annotatedFieldInner p = R.createElement annotatedFieldInnerCpt p []
 annotatedFieldInnerCpt :: R.Component InnerProps
 annotatedFieldInnerCpt = here.component "annotatedFieldInner" cpt where
   cpt { menuRef, ngrams, redrawMenu, setTermList, text: fieldText } _ = do
-    redrawMenu' <- T.useLive T.unequal redrawMenu
+    _redrawMenu' <- T.useLive T.unequal redrawMenu
 
     -- menu <- T.useBox (Nothing :: Maybe (Record AnnotationMenu))
 
@@ -109,7 +109,7 @@ onAnnotationSelect { menuRef, ngrams, redrawMenu, setTermList } Nothing event =
                    , redrawMenu
                    , setTermList }
     Nothing -> hideMenu { menuRef, redrawMenu }
-onAnnotationSelect { menuRef, ngrams, redrawMenu, setTermList } (Just (Tuple ngram list)) event = do
+onAnnotationSelect { menuRef, redrawMenu, setTermList } (Just (Tuple ngram list)) event = do
   showMenu { event
            , getList: const (Just list)
            , menuRef

src/Gargantext/Components/Annotation/Menu.purs

@@ -7,7 +7,6 @@ import Data.Generic.Rep (class Generic)
 import Data.Eq.Generic (genericEq)
 import Data.Maybe (Maybe(..))
 import Effect (Effect)
-import Effect.Uncurried (mkEffectFn1)
 import Reactix as R
 import Reactix.DOM.HTML as HTML
 import Toestand as T

src/Gargantext/Components/Charts/Options/Series.purs

 module Gargantext.Components.Charts.Options.Series where
 
-import Data.Argonaut (class DecodeJson, class EncodeJson, decodeJson, encodeJson, (.:), (~>), (:=))
-import Data.Argonaut.Core (jsonEmptyObject)
 import Data.Array (foldl)
 import Data.Generic.Rep (class Generic)
 import Data.Maybe (Maybe(..), maybe)
 import Data.Newtype (class Newtype)
 import Data.Symbol (SProxy(..))
 import Gargantext.Components.Charts.Options.Data (DataD1, DataD2)
-import Gargantext.Components.Charts.Options.Data (DataD1, DataD2)
-import Gargantext.Components.Charts.Options.Font (ItemStyle, Tooltip)
 import Gargantext.Components.Charts.Options.Font (ItemStyle, Tooltip)
 import Gargantext.Components.Charts.Options.Legend (SelectedMode)
-import Gargantext.Prelude
 import Gargantext.Types (class Optional)
-import Prelude (class Eq, class Show, bind, map, pure, show, ($), (+), (<<<), (<>), eq)
+import Prelude (class Eq, class Show, bind, map, pure, show, ($), (+), (<<<), (<>))
 import Record      as Record
 import Record.Unsafe (unsafeSet)
 import Simple.JSON as JSON

src/Gargantext/Components/CodeEditor.purs

 module Gargantext.Components.CodeEditor where
 
-import DOM.Simple.Types (Element)
 import Data.Argonaut.Parser (jsonParser)
 import Data.Either (either, Either(..))
 import Data.Generic.Rep (class Generic)
@@ -9,6 +8,7 @@ import Data.Show.Generic (genericShow)
 import Data.Maybe (Maybe(..))
 import Data.Nullable (Nullable, null, toMaybe)
 import Data.String.Utils (endsWith)
+import DOM.Simple.Types (Element)
 import Effect (Effect)
 import FFI.Simple ((.=))
 import Reactix as R
@@ -355,7 +355,7 @@ initControls code defaultCodeType = do
     }
 
 reinitControls :: Record Controls -> Code -> CodeType -> Effect Unit
-reinitControls c@{ codeType, codeS, error } code defaultCodeType = do
+reinitControls { codeType, codeS, error } code defaultCodeType = do
   T.write_ defaultCodeType codeType
   T.write_ code codeS
   T.write_ Nothing error

src/Gargantext/Components/ContextMenu/ContextMenu.purs

@@ -65,7 +65,7 @@ contextMenuCpt = here.component "contextMenu" cpt
         , style: position menu rect
         , data: { placement: "right", toggle: "popover" }
         }
-    elems ref menu Nothing = HTML.div
+    elems ref _menu Nothing = HTML.div
         { ref
         , key: "context-menu"
         , className: "context-menu"
@@ -98,7 +98,7 @@ documentClickHandler onClose menu =
 
 documentScrollHandler :: Effect Unit -> Callback DE.MouseEvent
 documentScrollHandler onClose =
-  R2.named "hideMenuOnScroll" $ callback $ \e -> onClose
+  R2.named "hideMenuOnScroll" $ callback $ \_ -> onClose
 
 position :: forall t. Record (Props t) -> DOMRect -> { left :: Number, top :: Number }
 position mouse {width: menuWidth, height: menuHeight} = {left, top}

src/Gargantext/Components/DocsTable.purs

@@ -193,13 +193,13 @@ searchBarCpt = here.component "searchBar" cpt
 
     searchButton query queryText' =
       H.button { className: "btn btn-primary"
-               , on: { click: \e -> T.write_ queryText' query }
+               , on: { click: \_ -> T.write_ queryText' query }
                , type: "submit" }
         [ H.span {className: "fa fa-search"} [] ]
 
     clearButton query =
       H.button { className: "btn btn-danger"
-               , on: { click: \e -> T.write_ "" query } }
+               , on: { click: \_ -> T.write_ "" query } }
         [ H.span {className: "fa fa-times"} [] ]
 
 mock :: Boolean
@@ -273,7 +273,7 @@ pageLayoutCpt = here.component "pageLayout" cpt where
 
     let path = { listId, mCorpusId, nodeId, params, query, tabType, yearFilter: yearFilter' }
         handleResponse :: HashedResponse (TableResult Response) -> Tuple Int (Array DocumentsView)
-        handleResponse (HashedResponse { hash, value: res }) = ret
+        handleResponse (HashedResponse { value: res }) = ret
           where
             filterDocs' q ds = case cacheState' of
               NT.CacheOff -> ds

src/Gargantext/Components/FacetsTable.purs

@@ -333,14 +333,14 @@ pageCpt = here.component "page" cpt
 
       let isDeleted (DocumentsView {id}) = Set.member id deletions'.deleted
 
-          rows path' = case rowsLoaded of
+          rows = case rowsLoaded of
             Docs     {docs}     -> docRow path'     <$> Seq.filter (not <<< isDeleted) docs
             Contacts {contacts} -> contactRow path' <$>  contacts
 
       pure $ T.table { colNames
                      , container
                      , params
-                     , rows: rows path'
+                     , rows
                      , syncResetButton : [ H.div {} [] ]
                      , totalRecords
                      , wrapColElts

src/Gargantext/Components/FolderView.purs

@@ -299,9 +299,9 @@ performAction = performAction' where
 
   deleteNode' nt p@{ nodeId: id, parentId: parent_id, session } = do
     case nt of
-      NodePublic FolderPublic  -> void $ deleteNode session nt id
+      NodePublic FolderPublic  -> void $ deleteNode session id
       NodePublic _             -> void $ unpublishNode session (Just parent_id) id
-      _                        -> void $ deleteNode session nt id
+      _                        -> void $ deleteNode session id
     refreshFolders p
 
   doSearch task { boxes: { tasks }, nodeId: id } = liftEffect $ do

src/Gargantext/Components/Forest/Tree.purs

@@ -229,13 +229,13 @@ refreshTree p@{ reloadTree } = liftEffect $ T2.reload reloadTree *> closePopover
 
 deleteNode' nt p@{ boxes: { forestOpen }, session, tree: (NTree (LNode {id, parent_id}) _) } = do
   case nt of
-    GT.NodePublic GT.FolderPublic -> void $ deleteNode session nt id
+    GT.NodePublic GT.FolderPublic -> void $ deleteNode session id
     GT.NodePublic _               -> void $ unpublishNode session parent_id id
-    _                             -> void $ deleteNode session nt id
+    _                             -> void $ deleteNode session id
   liftEffect $ T.modify_ (openNodesDelete (mkNodeId session id)) forestOpen
   refreshTree p
 
-doSearch task p@{ boxes: { tasks }, tree: NTree (LNode {id}) _ } = liftEffect $ do
+doSearch task { boxes: { tasks }, tree: NTree (LNode {id}) _ } = liftEffect $ do
   GAT.insert id task tasks
   here.log2 "[doSearch] DoSearch task:" task
 
@@ -250,7 +250,7 @@ renameNode name p@{ boxes: { errors }, session, tree: (NTree (LNode {id}) _) } =
   handleRESTError errors eTask $ \_task -> pure unit
   refreshTree p
 
-shareTeam username p@{ boxes: { errors }, session, tree: (NTree (LNode {id}) _)} = do
+shareTeam username { boxes: { errors }, session, tree: (NTree (LNode {id}) _)} = do
   eTask <- Share.shareReq session id $ Share.ShareTeamParams { username }
   handleRESTError errors eTask $ \_task -> pure unit
 
@@ -261,7 +261,7 @@ sharePublic params p@{ boxes: { errors, forestOpen }, session } = traverse_ f pa
       liftEffect $ T.modify_ (openNodesInsert (mkNodeId p.session out)) forestOpen
       refreshTree p
 
-addContact params p@{ boxes: { errors }, session, tree: (NTree (LNode {id}) _) } = do
+addContact params { boxes: { errors }, session, tree: (NTree (LNode {id}) _) } = do
   eTask <- Contact.contactReq session id params
   handleRESTError errors eTask $ \_task -> pure unit
 

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

@@ -113,7 +113,7 @@ nodeMainSpanCpt = here.component "nodeMainSpan" cpt
       pure $ H.span (dropProps droppedFile droppedFile' isDragOver isDragOver')
         $ reverseHanded handed'
         [ folderIcon  { folderOpen, nodeType } []
-        , chevronIcon { folderOpen, handed, isLeaf, nodeType } []
+        , chevronIcon { folderOpen, handed, isLeaf } []
         , nodeLink { boxes
                    , folderOpen
                    , frontends
@@ -201,14 +201,14 @@ nodeMainSpanCpt = here.component "nodeMainSpan" cpt
       { className: "leaf " <> (dropClass droppedFile' isDragOver')
       , on: { dragLeave: onDragLeave isDragOver
             , dragOver: onDragOverHandler isDragOver
-            , drop: dropHandler droppedFile }
+            , drop: dropHandler }
       }
       where
         dropClass (Just _) _    = "file-dropped"
         dropClass _        true = "file-dropped"
         dropClass Nothing  _    = ""
 
-        dropHandler droppedFile e          = do
+        dropHandler e = do
           -- prevent redirection when file is dropped
           E.preventDefault e
           E.stopPropagation e
@@ -248,7 +248,6 @@ type ChevronIconProps = (
     folderOpen :: T.Box Boolean
   , handed     :: T.Box GT.Handed
   , isLeaf     :: Boolean
-  , nodeType   :: GT.NodeType
   )
 
 chevronIcon :: R2.Component ChevronIconProps
@@ -256,9 +255,9 @@ chevronIcon = R.createElement chevronIconCpt
 chevronIconCpt :: R.Component ChevronIconProps
 chevronIconCpt = here.component "chevronIcon" cpt
   where
-    cpt { folderOpen, handed, isLeaf: true, nodeType } _ = do
+    cpt { isLeaf: true } _ = do
       pure $ H.div {} []
-    cpt { folderOpen, handed, isLeaf: false, nodeType } _ = do
+    cpt { folderOpen, handed, isLeaf: false } _ = do
       handed' <- T.useLive T.unequal handed
       open <- T.useLive T.unequal folderOpen
       pure $ H.a { className: "chevron-icon"

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

@@ -77,8 +77,6 @@ addNodeView = R.createElement addNodeViewCpt
 addNodeViewCpt :: R.Component CreateNodeProps
 addNodeViewCpt = here.component "addNodeView" cpt where
   cpt { dispatch
-      , id
-      , name
       , nodeTypes } _ = do
     nodeName <- T.useBox "Name"
     nodeName' <- T.useLive T.unequal nodeName

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

@@ -23,8 +23,8 @@ here = R2.here "Gargantext.Components.Forest.Tree.Node.Action.Delete"
 
 -- TODO Delete with asyncTaskWithType
 
-deleteNode :: Session -> NodeType -> GT.ID -> Aff (Either RESTError GT.ID)
-deleteNode session nt nodeId = delete session $ NodeAPI GT.Node (Just nodeId) ""
+deleteNode :: Session -> GT.ID -> Aff (Either RESTError GT.ID)
+deleteNode session nodeId = delete session $ NodeAPI GT.Node (Just nodeId) ""
 
 {-
   case nt of

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

@@ -77,5 +77,5 @@ actionDownloadOther :: R2.Component ActionDownload
 actionDownloadOther = R.createElement actionDownloadOtherCpt
 actionDownloadOtherCpt :: R.Component ActionDownload
 actionDownloadOtherCpt = here.component "actionDownloadOther" cpt where
-  cpt { id, session } _ = do
+  cpt _ _ = do
     pure $ fragmentPT $ "Soon, you will be able to download your file here "

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

@@ -6,10 +6,9 @@ import Data.Maybe (Maybe)
 import Effect (Effect)
 import Effect.Aff (Aff, launchAff)
 import Gargantext.Components.App.Data (Boxes)
-import Gargantext.Components.Forest.Tree.Node.Action.Types (Action(..))
-import Gargantext.Components.Forest.Tree.Node.Action.Add (NodePopup)
 import Gargantext.Components.Forest.Tree.Node.Action.Search.SearchBar (searchBar)
 import Gargantext.Components.Forest.Tree.Node.Action.Search.SearchField (defaultSearch)
+import Gargantext.Components.Forest.Tree.Node.Action.Types (Action(..))
 import Gargantext.Components.Lang (allLangs)
 import Gargantext.Sessions (Session)
 import Gargantext.Types (ID)
@@ -50,8 +49,8 @@ actionSearchCpt = here.component "actionSearch" cpt
         ]
         where
           searchOn :: (Action -> Aff Unit)
-                  -> GT.AsyncTaskWithType
-                  -> Effect Unit
+                   -> GT.AsyncTaskWithType
+                   -> Effect Unit
           searchOn dispatch' task = do
             _ <- launchAff $ dispatch' (DoSearch task)
             -- close popup

src/Gargantext/Components/Forest/Tree/Node/Action/Search/Frame.purs

@@ -9,7 +9,6 @@ import Data.Show.Generic (genericShow)
 import Data.Maybe (Maybe(..))
 import Data.Nullable (Nullable)
 import Data.Tuple (Tuple(..))
-import Data.Tuple.Nested ((/\))
 import Reactix as R
 import Reactix.DOM.HTML as H
 import Toestand as T
@@ -44,7 +43,6 @@ type SearchIFramesProps = (
 
 searchIframes :: R2.Component SearchIFramesProps
 searchIframes = R.createElement searchIframesCpt
-
 searchIframesCpt :: R.Component SearchIFramesProps
 searchIframesCpt = here.component "searchIframes" cpt
   where
@@ -67,7 +65,6 @@ type IFrameProps = (
 
 divIframe :: R2.Component IFrameProps
 divIframe = R.createElement divIframeCpt
-
 divIframeCpt :: R.Component IFrameProps
 divIframeCpt = here.component "divIframe" cpt
   where
@@ -82,7 +79,6 @@ frameUrl Searx = "https://searx.frame.gargantext.org" -- 192.168.1.4:8080"
 
 iframeWith :: R2.Component IFrameProps
 iframeWith = R.createElement iframeWithCpt
-
 iframeWithCpt :: R.Component IFrameProps
 iframeWithCpt = here.component "iframeWith" cpt
   where

src/Gargantext/Components/Forest/Tree/Node/Action/Search/SearchField.purs

@@ -99,7 +99,6 @@ componentIMTCpt = here.component "componentIMT" cpt
 
 componentCNRS :: R2.Component ComponentProps
 componentCNRS = R.createElement componentCNRSCpt
-
 componentCNRSCpt :: R.Component ComponentProps
 componentCNRSCpt = here.component "componentCNRS" cpt
   where
@@ -234,15 +233,14 @@ langNavCpt = here.component "langNav" cpt
 ------------------------------------------------------------------------
 
 type DataFieldNavProps =
-  ( datafields :: Array DataField
-  , search     :: T.Box Search )
+  ( search :: T.Box Search )
 
 dataFieldNav :: R2.Component DataFieldNavProps
 dataFieldNav = R.createElement dataFieldNavCpt
 dataFieldNavCpt :: R.Component DataFieldNavProps
 dataFieldNavCpt = here.component "dataFieldNav" cpt
   where
-    cpt { datafields, search } _ = do
+    cpt { search } _ = do
       search'@{ datafield } <- T.useLive T.unequal search
 
       pure $ R.fragment
@@ -367,7 +365,7 @@ datafieldInputCpt = here.component "datafieldInput" cpt where
     iframeRef <- R.useRef null
     
     pure $ H.div {}
-      [ dataFieldNav { datafields: dataFields, search } []
+      [ dataFieldNav { search } []
         
       , if isExternal search'.datafield
         then databaseInput { databases, search } []

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

@@ -236,7 +236,7 @@ fileTypeViewCpt = here.component "fileTypeView" cpt
 
       case droppedFile' of
         Nothing -> pure $ H.div {} []
-        Just df@(DroppedFile { blob, fileType }) ->
+        Just df@(DroppedFile _) ->
           pure $ H.div tooltipProps [ H.div { className: "card"}
                                       [ panelHeading
                                       , panelBody df
@@ -270,12 +270,12 @@ fileTypeViewCpt = here.component "fileTypeView" cpt
         panelBody (DroppedFile { blob }) =
           H.div {className: "card-body"}
           [ R2.select {className: "col-md-12 form-control"
-                      , on: {change: onChange blob}
+                      , on: {change: onChange}
                       }
                       (map renderOption [CSV, CSV_HAL, WOS])
           ]
           where
-            onChange blob e l =
+            onChange e l =
               T.write_ (Just $ DroppedFile $ { blob
                                              , fileType: read $ R.unsafeEventValue e
                                              , lang    : fromMaybe EN $ read $ R.unsafeEventValue l
@@ -477,7 +477,7 @@ uploadTermButtonCpt = here.component "uploadTermButton" cpt
                       , on: { click: onClick mFile' uploadType' }
                       } [ H.text "Upload" ]
       where
-        onClick mFile' uploadType' e = do
+        onClick mFile' uploadType' _ = do
           let {name, blob} = unsafePartial $ fromJust mFile'
           void $ launchAff do
             contents <- readUFBAsText blob

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

@@ -90,7 +90,7 @@ nodePopupCpt = here.component "nodePopupView" cpt where
         , title    : "Rename", on: { click: \_ -> T.write_ true isOpen } } []
   panelBody :: T.Box (Maybe NodeAction) -> Record NodePopupProps -> R.Element
   panelBody nodePopupState { nodeType } =
-    let (SettingsBox { doc, buttons}) = settingsBox nodeType in
+    let (SettingsBox { doc, buttons }) = settingsBox nodeType in
     H.div {className: "card-body flex-space-between"}
     $ [ H.p { className: "spacer" } []
       , H.div { className: "flex-center" }
@@ -181,25 +181,25 @@ panelAction p = R.createElement panelActionCpt p []
 panelActionCpt :: R.Component PanelActionProps
 panelActionCpt = here.component "panelAction" cpt
   where
-    cpt {action: Documentation nodeType}                  _ = pure $ actionDoc { nodeType } []
-    cpt {action: Download, id, nodeType, session}         _ = pure $ actionDownload { id, nodeType, session } []
-    cpt {action: Upload, dispatch, id, nodeType, session} _ = pure $ actionUpload { dispatch, id, nodeType, session } []
-    cpt {action: Delete, nodeType, dispatch}              _ = pure $ actionDelete { dispatch, nodeType } []
-    cpt {action: Add xs, dispatch, id, name, nodeType} _    =
+    cpt { action: Documentation nodeType}                  _ = pure $ actionDoc { nodeType } []
+    cpt { action: Download, id, nodeType, session}         _ = pure $ actionDownload { id, nodeType, session } []
+    cpt { action: Upload, dispatch, id, nodeType, session} _ = pure $ actionUpload { dispatch, id, nodeType, session } []
+    cpt { action: Delete, nodeType, dispatch}              _ = pure $ actionDelete { dispatch, nodeType } []
+    cpt { action: Add xs, dispatch, id, name, nodeType} _ =
       pure $ addNodeView {dispatch, id, name, nodeType, nodeTypes: xs} []
-    cpt {action: Refresh , dispatch, nodeType} _            = pure $ update { dispatch, nodeType } []
-    cpt {action: Config, nodeType} _                        =
+    cpt { action: Refresh , dispatch, nodeType } _ = pure $ update { dispatch, nodeType } []
+    cpt { action: Config, nodeType } _ =
       pure $ fragmentPT $ "Config " <> show nodeType
     -- Functions using SubTree
     cpt { action: Merge {subTreeParams}, boxes, dispatch, id, nodeType, session } _ =
       pure $ mergeNode { boxes, dispatch, id, nodeType, session, subTreeParams } []
-    cpt {action: Move {subTreeParams}, boxes, dispatch, id, nodeType, session } _ =
+    cpt { action: Move {subTreeParams}, boxes, dispatch, id, nodeType, session } _ =
       pure $ moveNode { boxes, dispatch, id, nodeType, session, subTreeParams } []
-    cpt {action: Link {subTreeParams}, boxes, dispatch, id, nodeType, session } _ =
+    cpt { action: Link {subTreeParams}, boxes, dispatch, id, nodeType, session } _ =
       pure $ linkNode { boxes, dispatch, id, nodeType, session, subTreeParams } []
-    cpt {action : Share, dispatch, id } _ = pure $ Share.shareNode { dispatch, id } []
-    cpt {action : AddingContact, dispatch, id } _ = pure $ Contact.actionAddContact { dispatch, id } []
-    cpt {action : Publish {subTreeParams}, boxes, dispatch, id, nodeType, session } _ =
+    cpt { action : Share, dispatch, id } _ = pure $ Share.shareNode { dispatch, id } []
+    cpt { action : AddingContact, dispatch, id } _ = pure $ Contact.actionAddContact { dispatch, id } []
+    cpt { action : Publish {subTreeParams}, boxes, dispatch, id, nodeType, session } _ =
       pure $ Share.publishNode { boxes, dispatch, id, nodeType, session, subTreeParams } []
     cpt { action: SearchBox, boxes, dispatch, id, session } _ =
       pure $ actionSearch { boxes, dispatch, id: (Just id), session } []

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

 module Gargantext.Components.Forest.Tree.Node.Settings where
 
-import Data.Generic.Rep (class Generic)
-import Data.Show.Generic (genericShow)
-import Data.Eq.Generic   (genericEq)
 import Gargantext.Prelude (class Eq, class Show, show, (&&), (<>), (==))
 import Gargantext.Components.Forest.Tree.Node.Tools.SubTree.Types (SubTreeParams(..))
-import Data.Array (foldl)
 import Gargantext.Types
 
 ------------------------------------------------------------------------
@@ -55,15 +51,15 @@ instance Show NodeAction where
   show Download          = "Download"
   show Upload            = "Upload"
   show Refresh           = "Refresh"
-  show (Move t)          = "Move with subtree params" -- <> show t
+  show (Move _)          = "Move with subtree params" -- <> show t
   show Clone             = "Clone"
   show Delete            = "Delete"
   show Share             = "Share"
   show Config            = "Config"
-  show (Link x)          = "Link to " -- <> show x
-  show (Add xs)          = "Add Child" -- foldl (\a b -> a <> show b) "Add " xs
-  show (Merge t)         = "Merge with subtree" -- <> show t
-  show (Publish x)       = "Publish" -- <> show x
+  show (Link _)          = "Link to " -- <> show x
+  show (Add _)          = "Add Child" -- foldl (\a b -> a <> show b) "Add " xs
+  show (Merge _)         = "Merge with subtree" -- <> show t
+  show (Publish _)       = "Publish" -- <> show x
   show AddingContact     = "AddingContact"
   show CloseNodePopover  = "CloseNodePopover"
 

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

@@ -223,11 +223,10 @@ type CheckboxesListGroup a =
 
 checkboxesListGroup :: forall a. Ord a => Show a => R2.Component (CheckboxesListGroup a)
 checkboxesListGroup = R.createElement checkboxesListGroupCpt
-
 checkboxesListGroupCpt :: forall a. Ord a => Show a => R.Component (CheckboxesListGroup a)
 checkboxesListGroupCpt = here.component "checkboxesListGroup" cpt
   where
-    cpt { groups, options } _ = do
+    cpt { options } _ = do
       options' <- T.useLive T.unequal options
 
       let one a =
@@ -278,7 +277,6 @@ nodeLinkCpt = here.component "nodeLink" cpt
         , nodeType
         , session
         } _ = do
-
       pure $
         H.div { className: "node-link"
               , on: { click } }

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

 module Gargantext.Components.Forest.Tree.Node.Tools.FTree where