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

[TYPE] Rename does not need typename

parent 041aef52
...@@ -35,7 +35,6 @@ type RenameBoxProps = ...@@ -35,7 +35,6 @@ type RenameBoxProps =
( id :: ID ( id :: ID
, dispatch :: Action -> Aff Unit , dispatch :: Action -> Aff Unit
, name :: Name , name :: Name
, nodeType :: NodeType
, renameBoxOpen :: R.State Boolean , renameBoxOpen :: R.State Boolean
) )
...@@ -43,7 +42,7 @@ renameBox :: Record RenameBoxProps -> R.Element ...@@ -43,7 +42,7 @@ renameBox :: Record RenameBoxProps -> R.Element
renameBox p@{ dispatch, renameBoxOpen: (true /\ setRenameBoxOpen) } = R.createElement el p [] renameBox p@{ dispatch, renameBoxOpen: (true /\ setRenameBoxOpen) } = R.createElement el p []
where where
el = R.hooksComponent "RenameBox" cpt el = R.hooksComponent "RenameBox" cpt
cpt {id, name, nodeType} _ = do cpt {id, name} _ = do
renameNodeName <- R.useState' name renameNodeName <- R.useState' name
pure $ H.div {className: "from-group row-no-padding"} pure $ H.div {className: "from-group row-no-padding"}
[ renameInput renameNodeName [ renameInput renameNodeName
......
...@@ -439,7 +439,7 @@ nodePopupCpt = R.hooksComponent "G.C.F.T.N.B.nodePopupView" cpt ...@@ -439,7 +439,7 @@ nodePopupCpt = R.hooksComponent "G.C.F.T.N.B.nodePopupView" cpt
H.div {className: "panel-heading"} H.div {className: "panel-heading"}
[ R2.row [ R2.row
[ H.div {className: "col-md-8"} [ H.div {className: "col-md-8"}
[ renameBox { dispatch, id, name, nodeType, renameBoxOpen } ] [ renameBox { dispatch, id, name, renameBoxOpen } ]
, H.div {className: "flex-end"} , H.div {className: "flex-end"}
[ if edit then editIcon renameBoxOpen else H.div {} [] [ 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