more debug

src/Gargantext/Database/Query/Tree.hs

@@ -44,7 +44,7 @@ import Control.Monad.Error.Class (MonadError())
 import Data.List (tail, concat, nub)
 import qualified Data.List as List
 import Data.Map.Strict (Map, fromListWith, lookup)
--- import Data.Monoid (mconcat)
+import Data.Monoid (mconcat)
 import Data.Proxy
 -- import qualified Data.Set  as Set
 import Data.Text (Text)
@@ -176,23 +176,23 @@ findSharedDirect :: (HasTreeError err, HasNodeError err)
                  => RootId -> NodeType -> [NodeType] -> UpdateTree err
                  -> Cmd err [DbTreeNode]
 findSharedDirect r nt nts fun = do
-  -- let rPrefix s = mconcat [ "[findSharedDirect] r = "
-  --                         , show r
-  --                         , ", nt = "
-  --                         , show nt
-  --                         , ", nts = "
-  --                         , show nts
-  --                         , " "
-  --                         , s ]
+  let rPrefix s = mconcat [ "[findSharedDirect] r = "
+                          , show r
+                          , ", nt = "
+                          , show nt
+                          , ", nts = "
+                          , show nts
+                          , " "
+                          , s ]
   parent <- getNodeWith r (Proxy :: Proxy HyperdataAny)
   let mParent = _node_parent_id parent
   case mParent of
     Nothing -> pure []
     Just parentId -> do
       foldersSharedId <- findNodesId parentId [nt]
-      -- printDebug (rPrefix "foldersSharedId") foldersSharedId
+      printDebug (rPrefix "foldersSharedId") foldersSharedId
       trees           <- mapM (updateTree nts fun) foldersSharedId
-      -- printDebug (rPrefix "trees") trees
+      printDebug (rPrefix "trees") trees
       pure $ concat trees