[DEBUG]

src/Gargantext/API/Node/Share.hs

@@ -72,7 +72,7 @@ api userInviting nId (ShareTeamParams user') = do
           username' <- getUsername userInviting
           _ <- case List.elem username' arbitraryUsername of
             True  -> do
-              printDebug "[G.A.N.Share.api]" ("demo users are not allowed to invite" :: Text)
+              printDebug "[G.A.N.Share.api]" ("Demo users are not allowed to invite" :: Text)
               pure ()
             False -> do
               -- TODO better analysis of the composition of what is shared

src/Gargantext/Database/Action/User/New.hs

@@ -58,10 +58,11 @@ newUser' address u = newUsers' address [u]
 newUsers' :: HasNodeError err
          => ServerAdress -> [NewUser GargPassword] -> Cmd err Int64
 newUsers' address us = do
-  us' <- liftBase         $ mapM toUserHash us
-  r   <- insertUsers      $ map toUserWrite us'
-  _   <- mapM getOrMkRoot $ map (\u -> UserName (_nu_username u)) us
+  us' <- liftBase         $ mapM toUserHash  us
+  r   <- insertUsers      $ map  toUserWrite us'
+  _   <- mapM getOrMkRoot $ map  (\u -> UserName   (_nu_username u)) us
   _   <- liftBase         $ mapM (\u -> mail address (Invitation u)) us
+  printDebug "newUsers'" us
   pure r
 ------------------------------------------------------------------------