Skip to content

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

[FLOW] order of mkNode.

parent 1e43f1aa
Pipeline #536 canceled with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 1 addition and 1 deletion
    src/Gargantext/Database/Flow.hs
    View file @ 2976d677
    ...@@ -186,6 +186,7 @@ flowCorpusUser l userName corpusName ctype ids = do ...@@ -186,6 +186,7 @@ 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
    -- User List Flow -- User List Flow
    --{- --{-
    ...@@ -194,7 +195,6 @@ flowCorpusUser l userName corpusName ctype ids = do ...@@ -194,7 +195,6 @@ flowCorpusUser l userName corpusName ctype ids = do
    userListId <- flowList userId userCorpusId ngs userListId <- flowList userId userCorpusId ngs
    printDebug "userListId" userListId printDebug "userListId" userListId
    -- User Graph Flow -- User Graph Flow
    _ <- mkTexts userCorpusId userId
    _ <- mkDashboard userCorpusId userId _ <- mkDashboard userCorpusId userId
    _ <- mkGraph userCorpusId userId _ <- mkGraph userCorpusId userId
    _ <- mkPhylo userCorpusId userId _ <- mkPhylo userCorpusId userId
    ......
    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