diff --git a/src/Foundation/Yesod/Auth.hs b/src/Foundation/Yesod/Auth.hs index 16d309dbf..de23399eb 100644 --- a/src/Foundation/Yesod/Auth.hs +++ b/src/Foundation/Yesod/Auth.hs @@ -173,8 +173,8 @@ upsertCampusUser upsertMode ldapData = do userFraportPersonalnummer' = ldapMap !!! ldapUserFraportPersonalnummer userFraportAbteilung' = ldapMap !!! ldapUserFraportAbteilung - -- TODO: continue here - decodeLdap1 :: _hole -- (MonadThrow m, Exception e) => Ldap.Attr -> e -> m Text + -- TODO: continue here + -- decodeLdap1 :: (Exception e) => Ldap.Attr -> e -> m Text decodeLdap1 attr err | [bs] <- ldapMap !!! attr , Right t <- Text.decodeUtf8' bs