Skip to content

haskell-gargantext
haskell-gargantext
Commit b206e162 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] Flow force TextNodeId.

parent 2976d677
Pipeline #537 failed with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 1 deletion
    src/Gargantext/Database/Flow.hs
    View file @ b206e162
    ...@@ -186,7 +186,8 @@ flowCorpusUser l userName corpusName ctype ids = do ...@@ -186,7 +186,8 @@ flowCorpusUser l userName corpusName ctype ids = do
    (userId, _rootId, userCorpusId) <- getOrMkRootWithCorpus userName corpusName ctype (userId, _rootId, userCorpusId) <- getOrMkRootWithCorpus userName corpusName ctype
    -- TODO: check if present already, ignore -- TODO: check if present already, ignore
    _ <- Doc.add userCorpusId ids _ <- Doc.add userCorpusId ids
    _ <- mkTexts userCorpusId userId tId <- mkTexts userCorpusId userId
    printDebug "Node Text Id" tId
    -- User List Flow -- User List Flow
    --{- --{-
    ......
    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