[ws] notification action on node share

src/Gargantext/Database/Action/Share.hs

@@ -18,6 +18,7 @@ module Gargantext.Database.Action.Share
 
 import Control.Arrow (returnA)
 import Control.Lens (view)
+import Gargantext.Core.AsyncUpdates.CentralExchange.Types qualified as CE
 import Gargantext.Core.Types.Individu (User(..))
 import Gargantext.Database
 import Gargantext.Database.Action.User (getUserId)
@@ -104,10 +105,14 @@ shareNodeWith (ShareNodeWith_User NodeFolderShared u) n = do
         then errorWith "[G.D.A.S.shareNodeWith] Can share to others only"
         else do
           folderSharedId  <- getFolderId u NodeFolderShared
-          insertDB ([NodeNode { _nn_node1_id = folderSharedId
-                              , _nn_node2_id = n
-                              , _nn_score = Nothing
-                              , _nn_category = Nothing }]:: [NodeNode])
+          ret <- insertDB ([NodeNode { _nn_node1_id = folderSharedId
+                                     , _nn_node2_id = n
+                                     , _nn_score = Nothing
+                                     , _nn_category = Nothing }]:: [NodeNode])
+          void $ CE.ce_notify $ CE.UpdateTreeFirstLevel folderSharedId
+          void $ CE.ce_notify $ CE.UpdateTreeFirstLevel n
+
+          return ret
 
 shareNodeWith (ShareNodeWith_Node NodeFolderPublic nId) n = do
   nodeToCheck <- getNode n
@@ -117,11 +122,16 @@ shareNodeWith (ShareNodeWith_Node NodeFolderPublic nId) n = do
     else do
       folderToCheck <- getNode nId
       if hasNodeType folderToCheck NodeFolderPublic
-         then insertDB ([NodeNode { _nn_node1_id = nId
-                                  , _nn_node2_id = n
-                                  , _nn_score = Nothing
-                                  , _nn_category = Nothing }] :: [NodeNode])
-         else errorWith "[G.D.A.S.shareNodeWith] Can share NodeWith NodeFolderPublic only"
+        then do
+          ret <- insertDB ([NodeNode { _nn_node1_id = nId
+                                     , _nn_node2_id = n
+                                     , _nn_score = Nothing
+                                     , _nn_category = Nothing }] :: [NodeNode])
+          void $ CE.ce_notify $ CE.UpdateTreeFirstLevel nId
+          void $ CE.ce_notify $ CE.UpdateTreeFirstLevel n
+
+          return ret
+        else errorWith "[G.D.A.S.shareNodeWith] Can share NodeWith NodeFolderPublic only"
 
 shareNodeWith _ _ = errorWith "[G.D.A.S.shareNodeWith] Not implemented for this NodeType"