chore(ldap): add Ldap.Scope instances

This commit is contained in:
Sarah Vaupel 2024-02-13 19:01:49 +01:00
parent 2c3292cadf
commit 1180ef6fd0

View File

@ -1,4 +1,4 @@
-- SPDX-FileCopyrightText: 2022 Gregor Kleen <gregor.kleen@ifi.lmu.de>
-- SPDX-FileCopyrightText: 2022-2024 Sarah Vaupel <sarah.vaupel@uniworx.de>, Gregor Kleen <gregor.kleen@ifi.lmu.de>
--
-- 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"