diff --git a/src/Util/Crypto.hs b/src/Util/Crypto.hs index 5b0d607..c9d63f4 100644 --- a/src/Util/Crypto.hs +++ b/src/Util/Crypto.hs @@ -6,10 +6,10 @@ import Crypto.Error (CryptoFailable) import qualified Data.ByteString as BS import Data.ByteString.Base64 -import System.Random.Stateful (uniformByteStringM, newIOGenM, mkStdGen) +import System.Random.Stateful (uniformByteStringM, newIOGenM, initStdGen) randomString :: IO BS.ByteString -randomString = encode <$> (uniformByteStringM 32 =<< newIOGenM (mkStdGen 23)) +randomString = encode <$> (uniformByteStringM 32 =<< newIOGenM =<< initStdGen) argon2 :: BS.ByteString -> BS.ByteString -> CryptoFailable BS.ByteString argon2 salt payload = encode <$> hash defaultOptions payload (decodeLenient salt) 64