diff --git a/src/Ldap/Client/Instances.hs b/src/Ldap/Client/Instances.hs index ca2689934..1d8b7f3ac 100644 --- a/src/Ldap/Client/Instances.hs +++ b/src/Ldap/Client/Instances.hs @@ -1,4 +1,4 @@ --- SPDX-FileCopyrightText: 2022 Gregor Kleen +-- SPDX-FileCopyrightText: 2022-2024 Sarah Vaupel , Gregor Kleen -- -- SPDX-License-Identifier: AGPL-3.0-or-later @@ -9,7 +9,27 @@ module Ldap.Client.Instances ) where import ClassyPrelude + +import Data.Data (Data) + +import Database.Persist.TH (derivePersistField) + +import Utils.PathPiece (derivePathPiece) + import Ldap.Client deriving instance Ord ResultCode +deriving instance Ord Scope + +deriving instance Read Scope + +deriving instance Data Scope + +deriving instance Generic Scope + +deriving instance NFData Scope + +derivePathPiece ''Scope id "--" + +derivePersistField "Scope"