[Graph API] fix corpus parent id for graph

0cc7bfc3 · Przemyslaw Kaminski · 3a7da9d2 · 0cc7bfc3
Verified Commit 0cc7bfc3 authored Sep 14, 2021 by Przemyslaw Kaminski
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 3 deletions

API.hs src/Gargantext/Core/Viz/Graph/API.hs +2 -3

No files found.
--- a/src/Gargantext/Core/Viz/Graph/API.hs
+++ b/src/Gargantext/Core/Viz/Graph/API.hs
@@ -257,9 +257,8 @@ graphVersions n nId = do
                . gm_list
                . lfg_version

-    cId = maybe (panic "[G.V.G.API] Node has no parent")
-                  identity
-                  $ nodeGraph ^. node_parent_id
+  mcId <- getClosestParentIdByType nId NodeCorpus
+  let cId = maybe (panic "[G.V.G.API] Node has no parent") identity mcId

  maybeListId <- defaultListMaybe cId
  case maybeListId of