Commit 3aa8ee18 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[TYPE] Rename does not need typename

parent 041aef52
......@@ -35,7 +35,6 @@ type RenameBoxProps =
( id :: ID
, dispatch :: Action -> Aff Unit
, name :: Name
, nodeType :: NodeType
, renameBoxOpen :: R.State Boolean
)
......@@ -43,7 +42,7 @@ renameBox :: Record RenameBoxProps -> R.Element
renameBox p@{ dispatch, renameBoxOpen: (true /\ setRenameBoxOpen) } = R.createElement el p []
where
el = R.hooksComponent "RenameBox" cpt
cpt {id, name, nodeType} _ = do
cpt {id, name} _ = do
renameNodeName <- R.useState' name
pure $ H.div {className: "from-group row-no-padding"}
[ renameInput renameNodeName
......
......@@ -439,7 +439,7 @@ nodePopupCpt = R.hooksComponent "G.C.F.T.N.B.nodePopupView" cpt
H.div {className: "panel-heading"}
[ R2.row
[ H.div {className: "col-md-8"}
[ renameBox { dispatch, id, name, nodeType, renameBoxOpen } ]
[ renameBox { dispatch, id, name, renameBoxOpen } ]
, H.div {className: "flex-end"}
[ if edit then editIcon renameBoxOpen else H.div {} []
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment