chore(ldap): add Ldap.Scope instances
This commit is contained in:
parent
2c3292cadf
commit
1180ef6fd0
@ -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
|
-- SPDX-License-Identifier: AGPL-3.0-or-later
|
||||||
|
|
||||||
@ -9,7 +9,27 @@ module Ldap.Client.Instances
|
|||||||
) where
|
) where
|
||||||
|
|
||||||
import ClassyPrelude
|
import ClassyPrelude
|
||||||
|
|
||||||
|
import Data.Data (Data)
|
||||||
|
|
||||||
|
import Database.Persist.TH (derivePersistField)
|
||||||
|
|
||||||
|
import Utils.PathPiece (derivePathPiece)
|
||||||
|
|
||||||
import Ldap.Client
|
import Ldap.Client
|
||||||
|
|
||||||
|
|
||||||
deriving instance Ord ResultCode
|
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"
|
||||||
|
|||||||
Reference in New Issue
Block a user