chore(ldap): move and add more instances

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

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