diff --git a/src/Ldap/Client/Instances.hs b/src/Ldap/Client/Instances.hs
index 1d8b7f3ac..5a3a80cab 100644
--- a/src/Ldap/Client/Instances.hs
+++ b/src/Ldap/Client/Instances.hs
@@ -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"