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