chore(ldap): add more Ldap instances
This commit is contained in:
parent
7ed5e7a326
commit
9597663881
@ -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"
|
||||
|
||||
Reference in New Issue
Block a user