Merge remote-tracking branch 'origin/dev-hackathon-fixes' into dev
[gargantext.git] / src / Gargantext / Database / Query / Tree.hs
index 919429c4051bfc1d4017e0d4d344fc019391f00f..522458bf38ec735304076d61ee167439fc44d17a 100644 (file)
@@ -182,7 +182,7 @@ findSharedDirect r nt nts fun = do
   --                         , " "
   --                         , s ]
   parent <- getNodeWith r (Proxy :: Proxy HyperdataAny)
-  let mParent = _node_parentId parent
+  let mParent = _node_parent_id parent
   case mParent of
     Nothing -> pure []
     Just parentId -> do
@@ -256,7 +256,7 @@ toTree m =
                 -> Tree NodeTree
         toTree' m' root =
           TreeN (toNodeTree root) $
-            -- Lines below are equivalent computationally but not semantically
+            -- Lines below are equivalent computationally but not semantically
             -- m' ^.. at (Just $ _dt_nodeId root) . _Just . each . to (toTree' m')
             toListOf (at (Just $ _dt_nodeId root) . _Just . each . to (toTree' m')) m'