Commit 74d0164e authored by Alexandre Delanoë's avatar Alexandre Delanoë

[Comment] last changes commented

parent 69f3f7cf
Pipeline #1117 failed with stage
...@@ -116,7 +116,7 @@ import Prelude (error) ...@@ -116,7 +116,7 @@ import Prelude (error)
import Gargantext.Prelude import Gargantext.Prelude
import Gargantext.API.Admin.Types (HasSettings) import Gargantext.API.Admin.Types (HasSettings)
import qualified Gargantext.API.Metrics as Metrics -- import qualified Gargantext.API.Metrics as Metrics
import Gargantext.API.Ngrams.Types import Gargantext.API.Ngrams.Types
import Gargantext.Core.Types (ListType(..), NodeId, ListId, DocId, Limit, Offset, HasInvalidError, TODO, assertValid) import Gargantext.Core.Types (ListType(..), NodeId, ListId, DocId, Limit, Offset, HasInvalidError, TODO, assertValid)
import Gargantext.Core.Utils (something) import Gargantext.Core.Utils (something)
...@@ -130,8 +130,8 @@ import Gargantext.Database.Query.Table.Node.Error (HasNodeError) ...@@ -130,8 +130,8 @@ import Gargantext.Database.Query.Table.Node.Error (HasNodeError)
import Gargantext.Database.Admin.Types.Node (NodeType(..)) import Gargantext.Database.Admin.Types.Node (NodeType(..))
import Gargantext.Database.Prelude (HasConnectionPool, HasConfig) import Gargantext.Database.Prelude (HasConnectionPool, HasConfig)
import qualified Gargantext.Database.Query.Table.Ngrams as TableNgrams import qualified Gargantext.Database.Query.Table.Ngrams as TableNgrams
import Gargantext.Database.Query.Table.Node (getNode) -- import Gargantext.Database.Query.Table.Node (getNode)
import Gargantext.Database.Schema.Node (NodePoly(..)) -- import Gargantext.Database.Schema.Node (NodePoly(..))
{- {-
-- TODO sequences of modifications (Patchs) -- TODO sequences of modifications (Patchs)
...@@ -344,6 +344,7 @@ tableNgramsPut tabType listId (Versioned p_version p_table) ...@@ -344,6 +344,7 @@ tableNgramsPut tabType listId (Versioned p_version p_table)
ret <- commitStatePatch (Versioned p_version p) ret <- commitStatePatch (Versioned p_version p)
<&> v_data %~ (view (_PatchMap . at ngramsType . _Just . _PatchMap . at listId . _Just)) <&> v_data %~ (view (_PatchMap . at ngramsType . _Just . _PatchMap . at listId . _Just))
{-
node <- getNode listId node <- getNode listId
let nId = _node_id node let nId = _node_id node
_uId = _node_userId node _uId = _node_userId node
...@@ -391,7 +392,7 @@ tableNgramsPut tabType listId (Versioned p_version p_table) ...@@ -391,7 +392,7 @@ tableNgramsPut tabType listId (Versioned p_version p_table)
printDebug "[tableNgramsPut] no update for tabType = " tabType printDebug "[tableNgramsPut] no update for tabType = " tabType
pure () pure ()
pure () pure ()
-}
pure ret pure ret
{- {-
......
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