From b8e7ee2b3d1c35a82acb5567e505d075632ea018 Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Mon, 19 Feb 2024 23:49:17 +0100 Subject: [PATCH] chore(users): remove old auth kind digesting --- src/Handler/Utils/Users.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/Handler/Utils/Users.hs b/src/Handler/Utils/Users.hs index 45b738c07..2733a25b2 100644 --- a/src/Handler/Utils/Users.hs +++ b/src/Handler/Utils/Users.hs @@ -6,9 +6,9 @@ -- NOTE: Also see Handler.Utils.Profile for similar utilities module Handler.Utils.Users - ( computeUserAuthenticationDigest - , Digest, SHA3_256 - , constEq + ( -- computeUserAuthenticationDigest + -- , Digest, SHA3_256 + constEq , NameMatchQuality(..) , matchesName , GuessUserInfo(..) @@ -25,7 +25,7 @@ module Handler.Utils.Users import Import import Auth.LDAP (ldapUserMatr') -import Foundation.Yesod.Auth (upsertLdapUser) +import Foundation.Yesod.Auth (upsertUser) import Crypto.Hash (hashlazy) @@ -131,8 +131,8 @@ getSupervisees = do return $ Set.insert uid $ Set.fromAscList svs -computeUserAuthenticationDigest :: AuthenticationMode -> Digest SHA3_256 -computeUserAuthenticationDigest = hashlazy . JSON.encode +-- computeUserAuthenticationDigest :: AuthenticationMode -> Digest SHA3_256 +-- computeUserAuthenticationDigest = hashlazy . JSON.encode data GuessUserInfo