diff --git a/src/Gargantext/Components/Forest/Tree/Node/Action/Share.purs b/src/Gargantext/Components/Forest/Tree/Node/Action/Share.purs index 78f1c2753c8ed281e4318bf697e7c5c3442dea9d..367c03eac152659990289b11d27b4b11f90838d0 100644 --- a/src/Gargantext/Components/Forest/Tree/Node/Action/Share.purs +++ b/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}) diff --git a/src/Gargantext/Components/Forest/Tree/Node/Box.purs b/src/Gargantext/Components/Forest/Tree/Node/Box.purs index ab4849e2142d676956efd9cf369fa98e182c3f8b..756520af07bcc7efc82d8192930eb757fd6af8e4 100644 --- a/src/Gargantext/Components/Forest/Tree/Node/Box.purs +++ b/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 - , boxName: "Share" - , dispatch - , id - , text: "username" - , isOpen - } - ] + 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