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

refactor(ldap): merge

Browse Source
This commit is contained in:
Steffen Jost 2022-08-26 09:54:57 +02:00
commit 00ab9af2a9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Foundation/Yesod/Auth.hs
View File

@ -173,8 +173,8 @@ upsertCampusUser upsertMode ldapData = do
userFraportPersonalnummer' = ldapMap !!! ldapUserFraportPersonalnummer userFraportPersonalnummer' = ldapMap !!! ldapUserFraportPersonalnummer
userFraportAbteilung' = ldapMap !!! ldapUserFraportAbteilung userFraportAbteilung' = ldapMap !!! ldapUserFraportAbteilung
-- TODO: continue here -- TODO: continue here
decodeLdap1 :: _hole -- (MonadThrow m, Exception e) => Ldap.Attr -> e -> m Text -- decodeLdap1 :: (Exception e) => Ldap.Attr -> e -> m Text
decodeLdap1 attr err decodeLdap1 attr err
| [bs] <- ldapMap !!! attr | [bs] <- ldapMap !!! attr
, Right t <- Text.decodeUtf8' bs , Right t <- Text.decodeUtf8' bs