chore(ldap): add more Ldap instances

This commit is contained in:
Sarah Vaupel 2024-02-13 22:44:47 +01:00
parent 7ed5e7a326
commit 9597663881

View File

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