diff --git a/src/Auth/LDAP.hs b/src/Auth/LDAP.hs
index 84603bb00..f14e60683 100644
--- a/src/Auth/LDAP.hs
+++ b/src/Auth/LDAP.hs
@@ -42,10 +42,6 @@ apLdap :: Text
 apLdap = "LDAP"
 
 
--- | Allow Ldap.Attr usage as key for Data.Map
-deriving newtype instance Ord Ldap.Attr
-
-
 -- TODO: rename
 data CampusLogin = CampusLogin
   { campusIdent :: CI Text
diff --git a/src/Ldap/Client/Instances.hs b/src/Ldap/Client/Instances.hs
index 5a3a80cab..19c1ae6bf 100644
--- a/src/Ldap/Client/Instances.hs
+++ b/src/Ldap/Client/Instances.hs
@@ -19,23 +19,28 @@ import Utils.PathPiece (derivePathPiece)
 import Ldap.Client
 
 
+deriving instance Ord Attr
 deriving instance Ord Dn
 deriving instance Ord Password
 deriving instance Ord ResultCode
 deriving instance Ord Scope
 
+deriving instance Read Attr
 deriving instance Read Dn
 deriving instance Read Password
 deriving instance Read Scope
 
+deriving instance Data Attr
 deriving instance Data Dn
 deriving instance Data Password
 deriving instance Data Scope
 
+deriving instance Generic Attr
 deriving instance Generic Dn
 deriving instance Generic Password
 deriving instance Generic Scope
 
+deriving anyclass instance NFData Attr
 deriving anyclass instance NFData Dn
 deriving anyclass instance NFData Password
 deriving instance NFData Scope