[FIX] test ok. TODO : API info <> demo users should not be able to create accounts

src/Gargantext/API/Node/Share.hs

@@ -63,7 +63,7 @@ api nId (ShareTeamParams user') = do
       case isRegistered of
         Just _  -> pure u
         Nothing -> do
-          _ <- newUsers [u]
+          _ <- newUsers [user']
           pure u
 
   fromIntegral <$> DB.shareNodeWith (ShareNodeWith_User NodeFolderShared (UserName user)) nId 

src/Gargantext/Database/Action/User.hs

@@ -31,7 +31,7 @@ getUserId u = do
   maybeUser <- getUserId' u
   case maybeUser of
     Nothing -> nodeError NoUserFound
-    Just u  -> pure u
+    Just u'  -> pure u'
 
 getUserId' :: HasNodeError err
           => User

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

@@ -44,9 +44,10 @@ newUserQuick n = do
   pass <- gargPass
   let u = case guessUserName n of
         Just  (u', _m) -> u'
-        Nothing        -> panic "Email invalid"
+        Nothing        -> panic "[G.D.A.U.N.newUserQuick]: Email invalid"
   pure (NewUser u n (GargPassword pass))
 
+------------------------------------------------------------------------
 isEmail :: Text -> Bool
 isEmail = ((==) 2) . List.length . (splitOn "@")