fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Gregor Kleen 2020-10-14 16:24:54 +02:00
parent ea95d74cb5
commit b631ed7d06
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Auth/LDAP.hs
View File

@ -219,8 +219,8 @@ campusLogin pool mode = AuthPlugin{..}
, isUnusualADError adError -> do , isUnusualADError adError -> do
$logInfoS apName [st|#{campusIdent}: #{toPathPiece adError}|] $logInfoS apName [st|#{campusIdent}: #{toPathPiece adError}|]
observeLoginOutcome apName LoginADInvalidCredentials observeLoginOutcome apName LoginADInvalidCredentials
setSessionJson SessionError . InternalError $ toPathPiece adError
MsgRenderer mr <- liftHandler getMsgRenderer MsgRenderer mr <- liftHandler getMsgRenderer
setSessionJson SessionError . PermissionDenied . mr $ ADInvalidCredentials adError
loginErrorMessage (tp LoginR) . mr $ ADInvalidCredentials adError loginErrorMessage (tp LoginR) . mr $ ADInvalidCredentials adError
Right (Left bindErr) -> do Right (Left bindErr) -> do
case bindErr of case bindErr of