fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

chore(ldap): move and add more instances

Browse Source
This commit is contained in:
Sarah Vaupel 2024-02-16 02:26:24 +01:00
parent 0c5f4cb430
commit f8bf02df2b
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Auth/LDAP.hs
View File

@ -42,10 +42,6 @@ apLdap :: Text
apLdap = "LDAP" apLdap = "LDAP"
-- | Allow Ldap.Attr usage as key for Data.Map
deriving newtype instance Ord Ldap.Attr
-- TODO: rename -- TODO: rename
data CampusLogin = CampusLogin data CampusLogin = CampusLogin
{ campusIdent :: CI Text { campusIdent :: CI Text

5
src/Ldap/Client/Instances.hs
View File

@ -19,23 +19,28 @@ import Utils.PathPiece (derivePathPiece)
import Ldap.Client import Ldap.Client
deriving instance Ord Attr
deriving instance Ord Dn deriving instance Ord Dn
deriving instance Ord Password deriving instance Ord Password
deriving instance Ord ResultCode deriving instance Ord ResultCode
deriving instance Ord Scope deriving instance Ord Scope
deriving instance Read Attr
deriving instance Read Dn deriving instance Read Dn
deriving instance Read Password deriving instance Read Password
deriving instance Read Scope deriving instance Read Scope
deriving instance Data Attr
deriving instance Data Dn deriving instance Data Dn
deriving instance Data Password deriving instance Data Password
deriving instance Data Scope deriving instance Data Scope
deriving instance Generic Attr
deriving instance Generic Dn deriving instance Generic Dn
deriving instance Generic Password deriving instance Generic Password
deriving instance Generic Scope deriving instance Generic Scope
deriving anyclass instance NFData Attr
deriving anyclass instance NFData Dn deriving anyclass instance NFData Dn
deriving anyclass instance NFData Password deriving anyclass instance NFData Password
deriving instance NFData Scope deriving instance NFData Scope