18 lines
372 B
Haskell
18 lines
372 B
Haskell
module Handler.Utils.Users
|
|
( computeUserAuthenticationDigest
|
|
, Digest, SHA3_256
|
|
, constEq
|
|
) where
|
|
|
|
import Import
|
|
|
|
import Crypto.Hash (Digest, SHA3_256, hashlazy)
|
|
|
|
import Data.ByteArray (constEq)
|
|
|
|
import qualified Data.Aeson as JSON
|
|
|
|
|
|
computeUserAuthenticationDigest :: AuthenticationMode -> Digest SHA3_256
|
|
computeUserAuthenticationDigest = hashlazy . JSON.encode
|