[list] upload CSV endpoint works, but 400 error still thrown
[gargantext.git] / src / Gargantext / Database / Action / Delete.hs
index c3baa306882e5288d168150283d864b9d2be2fb6..1d203d3ebc448d1dba19c3ecc8543c7de1fca2e2 100644 (file)
@@ -33,7 +33,7 @@ import Gargantext.Database.Query.Table.Node (getNodeWith)
 import Gargantext.Database.Query.Table.Node.Error (HasNodeError)
 import Gargantext.Database.Schema.Node
 import Gargantext.Prelude
-import qualified Gargantext.Prelude.Utils as GPU
+import qualified Gargantext.Database.GargDB as GargDB
 
 ------------------------------------------------------------------------
 
@@ -47,13 +47,13 @@ deleteNode u nodeId = do
     nt | nt == toDBid NodeUser -> panic "Not allowed to delete NodeUser (yet)"
     nt | nt == toDBid NodeTeam -> do
       uId   <- getUserId u
-      if _node_userId node' == uId
+      if _node_user_id node' == uId
         then N.deleteNode    nodeId
         else delFolderTeam u nodeId
     nt | nt == toDBid NodeFile -> do
       node <- getNodeWith nodeId (Proxy :: Proxy HyperdataFile)
       let (HyperdataFile { _hff_path = path }) = node ^. node_hyperdata
-      GPU.removeFile $ unpack path
+      GargDB.rmFile $ unpack path
       N.deleteNode nodeId
     _                             -> N.deleteNode nodeId
    
@@ -62,7 +62,7 @@ deleteNode u nodeId = do
   --    else if hasNodeType node' NodeTeam
   --            then do
   --               uId   <- getUserId u
-  --               if _node_userId node' == uId
+  --               if _node_user_id node' == uId
   --                  then N.deleteNode    nodeId
   --                  else delFolderTeam u nodeId
   --            else N.deleteNode nodeId