[bootstrap v4] styling for team share

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

@@ -57,10 +57,10 @@ instance encodeJsonShareNodeParams :: Argonaut.EncodeJson ShareNodeParams where
 ------------------------------------------------------------------------
 shareNode :: Record SubTreeParamsIn -> R.Element
 shareNode p = R.createElement shareNodeCpt p []
-
-shareNodeCpt :: R.Component SubTreeParamsIn
-shareNodeCpt = R.hooksComponentWithModule thisModule "shareNode" cpt
   where
+    shareNodeCpt :: R.Component SubTreeParamsIn
+    shareNodeCpt = R.hooksComponentWithModule thisModule "shareNode" cpt
+
     cpt p@{dispatch, subTreeParams, id, nodeType, session, handed} _ = do
       action@(valAction /\ setAction) :: R.State Action <- R.useState' (Action.SharePublic {params: Nothing})
 

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

@@ -28,7 +28,7 @@ import Gargantext.Components.Forest.Tree.Node.Action.Merge (mergeNode)
 import Gargantext.Components.Forest.Tree.Node.Box.Types (NodePopupProps, NodePopupS)
 import Gargantext.Components.Forest.Tree.Node.Settings (NodeAction(..), SettingsBox(..), glyphiconNodeAction, settingsBox)
 import Gargantext.Components.Forest.Tree.Node.Status (Status(..), hasStatus)
-import Gargantext.Components.Forest.Tree.Node.Tools (textInputBox, fragmentPT, prettyNodeType)
+import Gargantext.Components.Forest.Tree.Node.Tools (textInputBox, fragmentPT, panel, prettyNodeType)
 import Gargantext.Sessions (Session)
 import Gargantext.Types (Name, ID)
 import Gargantext.Types as GT
@@ -285,14 +285,14 @@ panelAction p = R.createElement panelActionCpt p []
 
     cpt {action : Share, dispatch, id, name } _ = do
       isOpen <- R.useState' true
-      pure $ H.div {} [ textInputBox { boxAction: Share.shareAction
+      pure $ panel [ textInputBox { boxAction: Share.shareAction
                                   , boxName: "Share"
                                   , dispatch
                                   , id
                                   , text: "username"
                                   , isOpen
                                   }
-                      ]
+                   ] $ H.div {} []
 
     cpt {action : AddingContact, dispatch, id, name } _ = do
       isOpen <- R.useState' true