Skip to content

P
purescript-gargantext
Commit b4764a1a authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] warnings

parent 519b4c37
Hide whitespace changes
Inline Side-by-side
Showing with 12 additions and 12 deletions
src/Gargantext/Components/GraphExplorer/Sidebar.purs
View file @ b4764a1a
...@@ -122,25 +122,25 @@ sideTab (Opened SideTabSelection) props = ...@@ -122,25 +122,25 @@ sideTab (Opened SideTabSelection) props =
, checked: true , checked: true
, title: "Mark as completed" } ] , title: "Mark as completed" } ]
removeButton text rType props nodesMap = removeButton text rType props' nodesMap' =
if Set.isEmpty $ fst props.selectedNodeIds then if Set.isEmpty $ fst props'.selectedNodeIds then
RH.div {} [] RH.div {} []
else else
RH.button { className: "btn btn-danger" RH.button { className: "btn btn-danger"
, on: { click: onClickRemove rType props nodesMap }} , on: { click: onClickRemove rType props' nodesMap' }}
[ RH.text text ] [ RH.text text ]
onClickRemove rType props nodesMap e = do onClickRemove rType props' nodesMap' e = do
let nodes = mapMaybe (\id -> Map.lookup id nodesMap) let nodes = mapMaybe (\id -> Map.lookup id nodesMap')
$ Set.toUnfoldable $ fst props.selectedNodeIds $ Set.toUnfoldable $ fst props'.selectedNodeIds
deleteNodes { graphId: props.graphId deleteNodes { graphId: props'.graphId
, metaData: props.metaData , metaData: props'.metaData
, nodes , nodes
, session: props.session , session: props'.session
, termList: rType , termList: rType
, treeReload: props.treeReload } , treeReload: props'.treeReload }
snd props.removedNodeIds $ const $ fst props.selectedNodeIds snd props'.removedNodeIds $ const $ fst props'.selectedNodeIds
snd props.selectedNodeIds $ const SigmaxT.emptyNodeIds snd props'.selectedNodeIds $ const SigmaxT.emptyNodeIds
......
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