[FIX] Init, first folders name

bin/gargantext-init/Main.hs

@@ -42,7 +42,7 @@ main = do
 
   let
     mkRoots :: Cmd GargError [(UserId, RootId)]
-    mkRoots = mapM getOrMkRoot $ map UserName ["gargantua", "user1", "user2"]
+    mkRoots = mapM getOrMkRoot $ map UserName ["gargantua", "user1", "user2", "user3"]
     -- TODO create all users roots
 
   let

src/Gargantext/Database/Query/Tree/Root.hs

@@ -115,9 +115,9 @@ mkRoot user = do
        rs <- mkNodeWithParent NodeUser Nothing uid una
        _ <- case rs of
          [r] -> do
-           _ <- mkNodeWithParent NodeFolderPrivate (Just r) uid una
-           _ <- mkNodeWithParent NodeFolderShared  (Just r) uid una
-           _ <- mkNodeWithParent NodeFolderPublic  (Just r) uid una
+           _ <- insertNode NodeFolderPrivate Nothing Nothing r uid
+           _ <- insertNode NodeFolderShared Nothing Nothing r uid
+           _ <- insertNode NodeFolderPublic Nothing Nothing r uid
            pure rs
          _   -> pure rs
        pure rs