Skip to content

haskell-gargantext
haskell-gargantext
Commit a495afdd authored by Alfredo Di Napoli's avatar Alfredo Di Napoli
Browse files
Options

Restore move_db_update when unpublishing a node

parent 917e622b
Pipeline #7021 failed with stages
          in 50 minutes and 8 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 1 addition and 1 deletion
          src/Gargantext/Database/Query/Table/Node/Update.hs
          View file @ a495afdd
          ...@@ -82,7 +82,7 @@ update loggedInUserId (Move sourceId targetId) = do ...@@ -82,7 +82,7 @@ update loggedInUserId (Move sourceId targetId) = do
          True -> do True -> do
          userPublicFolderNode <- getUserRootPublicNode loggedInUserId userPublicFolderNode <- getUserRootPublicNode loggedInUserId
          unpublishNode (SourceId $ sourceId) (TargetId $ _node_id userPublicFolderNode) unpublishNode (SourceId $ sourceId) (TargetId $ _node_id userPublicFolderNode)
          pure [ _NodeId $ sourceId] move_db_update sourceId targetId
          False -> nodeError (NodeIsReadOnly targetId "logged user is not allowed to move/unpublish a read-only node") False -> nodeError (NodeIsReadOnly targetId "logged user is not allowed to move/unpublish a read-only node")
          (True, True) (True, True)
          -> -- this case is not allowed. -> -- this case is not allowed.
          ......
          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