From 9597663881afad2badb9ff4265294eb70d561e1e Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@uniworx.de>
Date: Tue, 13 Feb 2024 22:44:47 +0100
Subject: [PATCH] chore(ldap): add more Ldap instances

---
 src/Ldap/Client/Instances.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

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"