fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

chore(users): remove old auth kind digesting

Browse Source
This commit is contained in:
Sarah Vaupel 2024-02-19 23:49:17 +01:00
parent 3d1908d71a
commit b8e7ee2b3d
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Handler/Utils/Users.hs
View File

@ -6,9 +6,9 @@
-- NOTE: Also see Handler.Utils.Profile for similar utilities -- NOTE: Also see Handler.Utils.Profile for similar utilities
module Handler.Utils.Users module Handler.Utils.Users
( computeUserAuthenticationDigest ( -- computeUserAuthenticationDigest
, Digest, SHA3_256 -- , Digest, SHA3_256
, constEq constEq
, NameMatchQuality(..) , NameMatchQuality(..)
, matchesName , matchesName
, GuessUserInfo(..) , GuessUserInfo(..)
@ -25,7 +25,7 @@ module Handler.Utils.Users
import Import import Import
import Auth.LDAP (ldapUserMatr') import Auth.LDAP (ldapUserMatr')
import Foundation.Yesod.Auth (upsertLdapUser) import Foundation.Yesod.Auth (upsertUser)
import Crypto.Hash (hashlazy) import Crypto.Hash (hashlazy)
@ -131,8 +131,8 @@ getSupervisees = do
return $ Set.insert uid $ Set.fromAscList svs return $ Set.insert uid $ Set.fromAscList svs
computeUserAuthenticationDigest :: AuthenticationMode -> Digest SHA3_256 -- computeUserAuthenticationDigest :: AuthenticationMode -> Digest SHA3_256
computeUserAuthenticationDigest = hashlazy . JSON.encode -- computeUserAuthenticationDigest = hashlazy . JSON.encode
data GuessUserInfo data GuessUserInfo