[FIX] removing printDebug
[gargantext.git] / src / Gargantext / Database / Action / Delete.hs
index 9ff6452c67a83d4ca844f562fc02ac16d5dd778b..b2b85a3395f1603fcc849ea76fe58eda243eb49c 100644 (file)
@@ -24,7 +24,7 @@ import Servant
 import Gargantext.Core.Types.Individu (User(..))
 import Gargantext.Database.Action.User (getUserId)
 import Gargantext.Database.Action.Share (delFolderTeam)
-import Gargantext.Database.Admin.Config (nodeTypeId)
+import Gargantext.Core
 import Gargantext.Database.Admin.Types.Hyperdata.File
 import Gargantext.Database.Admin.Types.Node -- (NodeType(..))
 import Gargantext.Database.Prelude (Cmd', HasConfig, HasConnectionPool)
@@ -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.Prelude.GargDB as GargDB
 
 ------------------------------------------------------------------------
 
@@ -44,16 +44,16 @@ deleteNode :: (HasConfig env, HasConnectionPool env, HasNodeError err)
 deleteNode u nodeId = do
   node' <- N.getNode nodeId
   case (view node_typename node') of
-    nt | nt == nodeTypeId NodeUser -> panic "Not allowed to delete NodeUser (yet)"
-    nt | nt == nodeTypeId NodeTeam -> 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 == nodeTypeId NodeFile -> do
+    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