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

chore: hlint

Browse Source
This commit is contained in:
Sarah Vaupel 2024-03-14 13:06:58 +01:00
parent 560d1adf5f
commit c4501f1d08
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -320,7 +320,7 @@ decodeUser now UserDefaultConf{..} upsertData = do
= ( ldapData `decodeLdap` ldapUserSurname = ( ldapData `decodeLdap` ldapUserSurname
, ldapData `decodeLdap` ldapUserFirstName , ldapData `decodeLdap` ldapUserFirstName
, ldapData `decodeLdap` ldapUserDisplayName , ldapData `decodeLdap` ldapUserDisplayName
, ldapData `decodeLdap` (Ldap.Attr "mail") -- TODO: use ldapUserEmail? , ldapData `decodeLdap` Ldap.Attr "mail" -- TODO: use ldapUserEmail?
, ldapData `decodeLdap` ldapUserTelephone , ldapData `decodeLdap` ldapUserTelephone
, ldapData `decodeLdap` ldapUserMobile , ldapData `decodeLdap` ldapUserMobile
, ldapData `decodeLdap` ldapUserFraportPersonalnummer , ldapData `decodeLdap` ldapUserFraportPersonalnummer
@ -388,9 +388,9 @@ decodeUser now UserDefaultConf{..} upsertData = do
where where
mbAzureData :: Maybe (Map Text [ByteString]) mbAzureData :: Maybe (Map Text [ByteString])
mbAzureData = fmap (Map.fromListWith (++) . map (\(t,bs) -> (t, filter (not . ByteString.null) bs))) . concat $ preview _upsertUserAzureData <$> NonEmpty.toList upsertData mbAzureData = fmap (Map.fromListWith (++) . map (second (filter (not . ByteString.null)))) . concat $ preview _upsertUserAzureData <$> NonEmpty.toList upsertData
mbLdapData :: Maybe (Map Ldap.Attr [Ldap.AttrValue]) -- Recall: Ldap.AttrValue == ByteString mbLdapData :: Maybe (Map Ldap.Attr [Ldap.AttrValue]) -- Recall: Ldap.AttrValue == ByteString
mbLdapData = fmap (Map.fromListWith (++) . map (\(t,bs) -> (t, filter (not . ByteString.null) bs))) . concat $ preview _upsertUserLdapData <$> NonEmpty.toList upsertData mbLdapData = fmap (Map.fromListWith (++) . map (second (filter (not . ByteString.null)))) . concat $ preview _upsertUserLdapData <$> NonEmpty.toList upsertData
-- just returns Nothing on error, pure -- just returns Nothing on error, pure
decodeAzure :: Map Text [ByteString] -> Text -> Maybe Text decodeAzure :: Map Text [ByteString] -> Text -> Maybe Text