Add createPasswordHashWithSalt

src/Gargantext/Prelude/Crypto/Auth.hs

@@ -11,21 +11,33 @@ Portability : POSIX
 
 
 module Gargantext.Prelude.Crypto.Auth ( createPasswordHash
+                               , createPasswordHashWithSalt
                                , checkPassword
                                , module Data.Password.Argon2
                                )
       where
 
+import Prelude
 import Control.Monad.IO.Class (MonadIO)
 import Data.Text (Text)
+import Data.ByteString (ByteString)
 import Data.Password.Argon2 hiding (checkPassword)
 import qualified Data.Password.Argon2 as A
 
 
-createPasswordHash :: MonadIO m 
+createPasswordHash :: MonadIO m
                    => Text
                    -> m (PasswordHash Argon2)
-createPasswordHash x = hashPassword (mkPassword x)
+createPasswordHash x = do
+  salt <- newSalt
+  pure $ createPasswordHashWithSalt (getSalt salt) x
+
+createPasswordHashWithSalt :: ByteString
+                           -- ^ The salt to use.
+                           -> Text
+                           -> PasswordHash Argon2
+createPasswordHashWithSalt salt x =
+  hashPasswordWithSalt defaultParams (Salt salt) (mkPassword x)
 
 
 checkPassword :: Password