Commit 97922b32 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski Committed by Karen Konou

[ngramsTable] remove console.logs

parent 18c1b160
...@@ -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 {}
......
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