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): add more Ldap instances

Browse Source
This commit is contained in:
Sarah Vaupel 2024-02-13 22:44:47 +01:00
parent 7ed5e7a326
commit 9597663881
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,17 +19,30 @@ import Utils.PathPiece (derivePathPiece)
import Ldap.Client import Ldap.Client
deriving instance Ord Dn
deriving instance Ord Password
deriving instance Ord ResultCode deriving instance Ord ResultCode
deriving instance Ord Scope deriving instance Ord Scope
deriving instance Read Dn
deriving instance Read Password
deriving instance Read Scope deriving instance Read Scope
deriving instance Data Dn
deriving instance Data Password
deriving instance Data Scope deriving instance Data Scope
deriving instance Generic Dn
deriving instance Generic Password
deriving instance Generic Scope deriving instance Generic Scope
deriving anyclass instance NFData Dn
deriving anyclass instance NFData Password
deriving instance NFData Scope deriving instance NFData Scope
derivePathPiece ''Dn id "--"
derivePathPiece ''Scope id "--" derivePathPiece ''Scope id "--"
derivePersistField "Dn"
derivePersistField "Password"
derivePersistField "Scope" derivePersistField "Scope"