[FIX] BUG email/username uniforming to Lower case

devops/postgres/upgrade/0.0.6.9.4.sql

+
+UPDATE auth_user old SET email = LOWER(new.email) 
+FROM auth_user new
+WHERE old.email = new.email
+
+
+

src/Gargantext/API/Admin/Auth.hs

@@ -35,22 +35,16 @@ module Gargantext.API.Admin.Auth
   )
   where
 
-import Control.Lens (view, (#))
 --import Control.Monad.Logger.Aeson
+--import qualified Text.Blaze.Html5.Attributes as HA
+import Control.Lens (view, (#))
 import Data.Aeson
 import Data.Swagger (ToSchema(..))
 import Data.Text (Text)
 import Data.Text.Lazy (toStrict)
-import qualified Data.Text.Lazy.Encoding as LE
 import Data.UUID (UUID, fromText, toText)
 import Data.UUID.V4 (nextRandom)
 import GHC.Generics (Generic)
-import Servant
-import Servant.Auth.Server
---import qualified Text.Blaze.Html5.Attributes as HA
-
-import qualified Gargantext.Prelude.Crypto.Auth as Auth
-
 import Gargantext.API.Admin.Auth.Types
 import Gargantext.API.Admin.EnvTypes (GargJob(..), Env)
 import Gargantext.API.Admin.Orchestrator.Types (JobLog(..), AsyncJobs)
@@ -70,6 +64,11 @@ import Gargantext.Database.Schema.Node (NodePoly(_node_id))
 import Gargantext.Prelude hiding (reverse)
 import Gargantext.Prelude.Crypto.Pass.User (gargPass)
 import Gargantext.Utils.Jobs (serveJobsAPI)
+import Servant
+import Servant.Auth.Server
+import qualified Data.Text as Text
+import qualified Data.Text.Lazy.Encoding as LE
+import qualified Gargantext.Prelude.Crypto.Auth as Auth
 
 ---------------------------------------------------
 
@@ -181,7 +180,7 @@ forgotPassword = forgotPasswordPost :<|> forgotPasswordGet
 forgotPasswordPost :: ( HasConnectionPool env, HasConfig env, HasMail env)
      => ForgotPasswordRequest -> Cmd' env err ForgotPasswordResponse
 forgotPasswordPost (ForgotPasswordRequest email) = do
-  us <- getUsersWithEmail email
+  us <- getUsersWithEmail (Text.toLower email)
   case us of
     [u] -> forgotUserPassword u
     _ -> pure ()

src/Gargantext/API/Node/Share.hs

@@ -27,14 +27,15 @@ import Gargantext.Database.Action.User
 import Gargantext.Database.Action.User.New
 import Gargantext.Database.Admin.Types.Node
 import Gargantext.Database.Prelude
-import Gargantext.Database.Query.Tree (findNodesWithType)
 import Gargantext.Database.Query.Table.Node.Error (HasNodeError(..))
+import Gargantext.Database.Query.Tree (findNodesWithType)
 import Gargantext.Prelude
-import qualified Gargantext.Utils.Aeson as GUA
 import Servant
 import Test.QuickCheck (elements)
 import Test.QuickCheck.Arbitrary
 import qualified Data.List as List
+import qualified Data.Text as Text
+import qualified Gargantext.Utils.Aeson as GUA
 
 ------------------------------------------------------------------------
 data ShareNodeParams = ShareTeamParams   { username :: Text  }
@@ -61,8 +62,9 @@ api :: HasNodeError err
     -> ShareNodeParams
     -> CmdR err Int
 api userInviting nId (ShareTeamParams user') = do
-  user <- case guessUserName user' of
-    Nothing    -> pure user'
+  let user'' = Text.toLower user'
+  user <- case guessUserName user'' of
+    Nothing    -> pure user''
     Just (u,_) -> do
       isRegistered <- getUserId' (UserName u)
       case isRegistered of
@@ -87,8 +89,8 @@ api userInviting nId (ShareTeamParams user') = do
                   printDebug "[G.A.N.Share.api]" ("Invitation is enabled if you share a corpus at least" :: Text)
                   pure 0
                 False -> do 
-                  printDebug "[G.A.N.Share.api]" ("Your invitation is sent to: " <> user')
-                  newUsers [user']
+                  printDebug "[G.A.N.Share.api]" ("Your invitation is sent to: " <> user'')
+                  newUsers [user'']
               pure ()
           pure u
 

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

@@ -16,7 +16,6 @@ module Gargantext.Database.Action.User.New
 import Control.Lens (view)
 import Control.Monad.Random
 import Data.Text (Text, splitOn)
-import qualified Data.Text as Text
 import Gargantext.Core.Mail
 import Gargantext.Core.Mail.Types (HasMail, mailSettings)
 import Gargantext.Core.Types.Individu
@@ -27,6 +26,7 @@ import Gargantext.Database.Query.Table.User
 import Gargantext.Prelude
 import Gargantext.Prelude.Crypto.Pass.User (gargPass)
 import Gargantext.Prelude.Mail.Types (MailConfig)
+import qualified Data.Text as Text
 
 ------------------------------------------------------------------------
 newUsers :: (CmdM env err m, MonadRandom m, HasNodeError err, HasMail env)
@@ -52,10 +52,11 @@ newUserQuick :: (MonadRandom m)
              => Text -> m (NewUser GargPassword)
 newUserQuick n = do
   pass <- gargPass
+  let n' = Text.toLower n
   let u = case guessUserName n of
         Just  (u', _m) -> u'
         Nothing        -> panic "[G.D.A.U.N.newUserQuick]: Email invalid"
-  pure (NewUser u n (GargPassword pass))
+  pure (NewUser u n' (GargPassword pass))
 ------------------------------------------------------------------------
 
 ------------------------------------------------------------------------