Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
P
purescript-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Grégoire Locqueville
purescript-gargantext
Commits
97922b32
Commit
97922b32
authored
Jun 21, 2022
by
Przemyslaw Kaminski
Committed by
Karen Konou
Jun 30, 2022
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[ngramsTable] remove console.logs
parent
18c1b160
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
0 additions
and
8 deletions
+0
-8
NgramsTable.purs
src/Gargantext/Components/NgramsTable.purs
+0
-8
No files found.
src/Gargantext/Components/NgramsTable.purs
View file @
97922b32
...
@@ -481,8 +481,6 @@ mkDispatch { filteredRows
...
@@ -481,8 +481,6 @@ mkDispatch { filteredRows
, ngramsChildrenDiff: Map.empty
, ngramsChildrenDiff: Map.empty
, ngramsParent } treeEdit.box
, ngramsParent } treeEdit.box
performAction (ToggleChild b c) = do
performAction (ToggleChild b c) = do
here.log2 "[mkDispatch] ToggleChild b" b
here.log2 "[mkDispatch] ToggleChild c" c
T.modify_ (\g@{ ngramsChildrenDiff: ncd } -> g { ngramsChildrenDiff = newNC ncd }) treeEdit.box
T.modify_ (\g@{ ngramsChildrenDiff: ncd } -> g { ngramsChildrenDiff = newNC ncd }) treeEdit.box
where
where
newNC ncd = Map.alter (maybe (Just b) (const Nothing)) c ncd
newNC ncd = Map.alter (maybe (Just b) (const Nothing)) c ncd
...
@@ -674,10 +672,6 @@ ngramsTreeEditRealCpt = here.component "ngramsTreeEditReal" cpt where
...
@@ -674,10 +672,6 @@ ngramsTreeEditRealCpt = here.component "ngramsTreeEditReal" cpt where
, onSaveRef } _ = do
, onSaveRef } _ = do
{ ngramsChildren, ngramsChildrenDiff } <- T.useLive T.unequal box
{ ngramsChildren, ngramsChildrenDiff } <- T.useLive T.unequal box
R.useEffect' $ do
here.log2 "[ngramsTreeEditReal] ngramsParent'" ngramsParent'
here.log2 "[ngramsTreeEditReal] ngramsChildrenDiff" ngramsChildrenDiff
let ngramsDepth = { depth: 0, ngrams: ngramsParent' }
let ngramsDepth = { depth: 0, ngrams: ngramsParent' }
ngramsChildrenPatched :: Set NgramsTerm
ngramsChildrenPatched :: Set NgramsTerm
ngramsChildrenPatched = applyPatchSet (patchSetFromMap ngramsChildrenDiff) $ Set.fromFoldable ngramsChildren
ngramsChildrenPatched = applyPatchSet (patchSetFromMap ngramsChildrenDiff) $ Set.fromFoldable ngramsChildren
...
@@ -686,10 +680,8 @@ ngramsTreeEditRealCpt = here.component "ngramsTreeEditReal" cpt where
...
@@ -686,10 +680,8 @@ ngramsTreeEditRealCpt = here.component "ngramsTreeEditReal" cpt where
-- ngrams children.
-- ngrams children.
gnc ngrams = if ngrams == ngramsParent'
gnc ngrams = if ngrams == ngramsParent'
then do
then do
liftEffect $ here.log2 "[gnc] ngrams" ngrams
pure $ A.fromFoldable ngramsChildrenPatched
pure $ A.fromFoldable ngramsChildrenPatched
else do
else do
liftEffect $ here.log2 "[gnc] ngrams" ngrams
pure []
pure []
pure $ H.div {}
pure $ H.div {}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment