fix(auth): prettier active directory errors in help messages

2020-10-14 16:24:54 +02:00 · 2020-10-14 16:24:54 +02:00 · b631ed7d06
commit b631ed7d06
parent ea95d74cb5
1 changed files with 1 additions and 1 deletions
--- a/src/Auth/LDAP.hs
+++ b/src/Auth/LDAP.hs
@ -219,8 +219,8 @@ campusLogin pool mode = AuthPlugin{..}
            , isUnusualADError adError -> do
                $logInfoS apName [st|#{campusIdent}: #{toPathPiece adError}|]
                observeLoginOutcome apName LoginADInvalidCredentials
-                setSessionJson SessionError . InternalError $ toPathPiece adError
                MsgRenderer mr <- liftHandler getMsgRenderer
+                setSessionJson SessionError . PermissionDenied . mr $ ADInvalidCredentials adError
                loginErrorMessage (tp LoginR) . mr $ ADInvalidCredentials adError
          Right (Left bindErr) -> do
            case bindErr of