From b18c49194855db7b0cb715bbd8ddb7fc71c1eefb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Alexandre=20Delano=C3=AB?= <devel+git@delanoe.org>
Date: Thu, 21 Jan 2021 18:21:55 +0100
Subject: [PATCH] [FIX] normalize username when sharing
---
src/Gargantext/Database/Action/User/New.hs | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/src/Gargantext/Database/Action/User/New.hs b/src/Gargantext/Database/Action/User/New.hs
index eb3b9e27..f45b86fb 100644
--- a/src/Gargantext/Database/Action/User/New.hs
+++ b/src/Gargantext/Database/Action/User/New.hs
@@ -25,7 +25,7 @@ import Gargantext.Database.Query.Table.User
import Gargantext.Prelude
import Gargantext.Prelude.Config
import Gargantext.Prelude.Crypto.Pass.User (gargPass)
-
+import qualified Data.Text as Text
------------------------------------------------------------------------
------------------------------------------------------------------------
newUsers :: (CmdM env err m, MonadRandom m, HasNodeError err)
@@ -45,9 +45,11 @@ newUserQuick n = do
pure (NewUser u n (GargPassword pass))
------------------------------------------------------------------------
+-- | guessUserName
+-- guess username and normalize it (Text.toLower)
guessUserName :: Text -> Maybe (Text,Text)
guessUserName n = case splitOn "@" n of
- [u',m'] -> if m' /= "" then Just (u',m')
+ [u',m'] -> if m' /= "" then Just (Text.toLower u',m')
else Nothing
_ -> Nothing
------------------------------------------------------------------------
--
2.21.0