Skip to content

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

[DEBUG] data

parent a969007f
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 2 deletions
src/Gargantext/Components/NgramsTable.purs
View file @ c9eee335
...@@ -203,9 +203,9 @@ tableContainerCpt { dispatch ...@@ -203,9 +203,9 @@ tableContainerCpt { dispatch
setTermSizeFilter x = T.modify (_ { termSizeFilter = x }) path setTermSizeFilter x = T.modify (_ { termSizeFilter = x }) path
setSelection = dispatch <<< setTermListSetA ngramsTableCache ngramsSelection setSelection = dispatch <<< setTermListSetA ngramsTableCache ngramsSelection
editor = H.div {} $ maybe [] f ngramsParent editor = H.div {} $ maybe [] edit ngramsParent
where where
f ngrams = [ H.p {} [H.text $ "Editing " <> ngramsTermText ngrams] edit ngrams = [ H.p {} [H.text $ "Editing " <> ngramsTermText ngrams]
, NTC.renderNgramsTree { ngramsTable , NTC.renderNgramsTree { ngramsTable
, ngrams , ngrams
, ngramsStyle: [] , ngramsStyle: []
...@@ -482,6 +482,7 @@ mkDispatch { filteredRows ...@@ -482,6 +482,7 @@ mkDispatch { filteredRows
pure unit pure unit
Just parent -> do Just parent -> do
here.log2 "[performAction] AddTermChildren, parent" parent here.log2 "[performAction] AddTermChildren, parent" parent
here.log2 "[performAction] AddTermChildren, ngramsChildren" ngramsChildren
let pc = patchSetFromMap ngramsChildren let pc = patchSetFromMap ngramsChildren
pe = NgramsPatch { patch_list: mempty, patch_children: pc } pe = NgramsPatch { patch_list: mempty, patch_children: pc }
pt = singletonNgramsTablePatch parent pe pt = singletonNgramsTablePatch parent pe
......
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