[GRAPH] Comments during meeting.

08aa087f · Alexandre Delanoë · 6cb434bb · 08aa087f · 08aa087f
Commit 08aa087f authored Dec 03, 2019 by Alexandre Delanoë
Show whitespace changes
Inline Side-by-side

Showing with 5 additions and 3 deletions

API.hs src/Gargantext/API.hs +1 -1

API.hs src/Gargantext/Viz/Graph/API.hs +4 -2

No files found.
--- a/src/Gargantext/API.hs
+++ b/src/Gargantext/API.hs
--- a/src/Gargantext/Viz/Graph/API.hs
+++ b/src/Gargantext/Viz/Graph/API.hs
@@ -61,6 +61,8 @@ graphAPI n =  getGraph  n
 getGraph :: NodeId -> GargServer (Get '[JSON] Graph)
 getGraph nId = do
  nodeGraph <- getNode nId HyperdataGraph
+  -- get HyperdataGraphp from Database
+  -- if Nothing else if version == current version then compute

  let cId = maybe (panic "no parentId") identity $ _node_parentId nodeGraph
  lId  <- defaultList cId