ElEve: alternative split
[gargantext.git] / src / Gargantext / API / Auth.hs
index a720d2f2bae09f1cdbed89c80ce215f24d3337fc..e2f519908e15fc918af2b1d526373fb48665cfa2 100644 (file)
@@ -35,18 +35,16 @@ import Data.Text (Text, reverse)
 import GHC.Generics (Generic)
 import Gargantext.Core.Utils.Prefix (unPrefix)
 import Gargantext.Database.Root (getRoot)
-import Gargantext.Database.Types.Node (NodePoly(_node_id))
+import Gargantext.Database.Types.Node (NodePoly(_node_id), NodeId)
 import Gargantext.Database.Utils (Cmd)
 import Gargantext.Prelude hiding (reverse)
 import Test.QuickCheck (elements, oneof)
 import Test.QuickCheck.Arbitrary (Arbitrary, arbitrary)
+import Gargantext.Core.Types.Individu (Username, Password, arbitraryUsername, arbitraryPassword)
 
 ---------------------------------------------------
 
 -- | Main types for AUTH API
-type Username = Text
-type Password = Text
-
 data AuthRequest = AuthRequest { _authReq_username :: Username
                                , _authReq_password :: Password
                                }
@@ -67,7 +65,7 @@ data AuthValid = AuthValid { _authVal_token   :: Token
   deriving (Generic)
 
 type Token  = Text
-type TreeId = Int
+type TreeId = NodeId
 
 -- | Main functions of authorization
 
@@ -76,18 +74,12 @@ type TreeId = Int
 data CheckAuth = InvalidUser | InvalidPassword | Valid Token TreeId
   deriving (Eq)
 
-arbitraryUsername :: [Username]
-arbitraryUsername = ["gargantua", "user1", "user2"]
-
-arbitraryPassword :: [Password]
-arbitraryPassword = map reverse arbitraryUsername
-
 checkAuthRequest :: Username -> Password -> Cmd err CheckAuth
 checkAuthRequest u p
   | not (u `elem` arbitraryUsername) = pure InvalidUser
   | u /= reverse p = pure InvalidPassword
   | otherwise = do
-      muId <- getRoot u
+      muId <- getRoot "user1"
       pure $ maybe InvalidUser (Valid "token" . _node_id) $ head muId
 
 auth :: AuthRequest -> Cmd err AuthResponse