{-# LINE 1 "LDAP/Data.hsc" #-}
module LDAP.Data (module LDAP.Data) where
data LDAPReturnCode =
LdapSuccess
| LdapOperationsError
| LdapProtocolError
| LdapTimelimitExceeded
| LdapSizelimitExceeded
| LdapCompareFalse
| LdapCompareTrue
| LdapAuthMethodNotSupported
| LdapStrongAuthNotSupported
| LdapStrongAuthRequired
| LdapPartialResults
| LdapReferral
| LdapAdminlimitExceeded
| LdapUnavailableCriticalExtension
| LdapConfidentialityRequired
| LdapSaslBindInProgress
| LdapNoSuchAttribute
| LdapUndefinedType
| LdapInappropriateMatching
| LdapConstraintViolation
| LdapTypeOrValueExists
| LdapInvalidSyntax
| LdapNoSuchObject
| LdapAliasProblem
| LdapInvalidDnSyntax
| LdapIsLeaf
| LdapAliasDerefProblem
| LdapProxyAuthzFailure
| LdapInappropriateAuth
| LdapInvalidCredentials
| LdapInsufficientAccess
| LdapBusy
| LdapUnavailable
| LdapUnwillingToPerform
| LdapLoopDetect
| LdapNamingViolation
| LdapObjectClassViolation
| LdapNotAllowedOnNonleaf
| LdapNotAllowedOnRdn
| LdapAlreadyExists
| LdapNoObjectClassMods
| LdapResultsTooLarge
| LdapAffectsMultipleDsas
| LdapOther
| LdapServerDown
| LdapLocalError
| LdapEncodingError
| LdapDecodingError
| LdapTimeout
| LdapAuthUnknown
| LdapFilterError
| LdapUserCancelled
| LdapParamError
| LdapNoMemory
| LdapConnectError
| LdapNotSupported
| LdapControlNotFound
| LdapNoResultsReturned
| LdapMoreResultsToReturn
| LdapClientLoop
| LdapReferralLimitExceeded
| UnknownLDAPReturnCode Int
deriving (Int -> LDAPReturnCode -> ShowS
[LDAPReturnCode] -> ShowS
LDAPReturnCode -> String
(Int -> LDAPReturnCode -> ShowS)
-> (LDAPReturnCode -> String)
-> ([LDAPReturnCode] -> ShowS)
-> Show LDAPReturnCode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LDAPReturnCode -> ShowS
showsPrec :: Int -> LDAPReturnCode -> ShowS
$cshow :: LDAPReturnCode -> String
show :: LDAPReturnCode -> String
$cshowList :: [LDAPReturnCode] -> ShowS
showList :: [LDAPReturnCode] -> ShowS
Show)
instance Enum LDAPReturnCode where
toEnum :: Int -> LDAPReturnCode
toEnum (Int
0) = LDAPReturnCode
LdapSuccess
{-# LINE 90 "LDAP/Data.hsc" #-}
toEnum (1) = LdapOperationsError
{-# LINE 91 "LDAP/Data.hsc" #-}
toEnum (2) = LdapProtocolError
{-# LINE 92 "LDAP/Data.hsc" #-}
toEnum (3) = LdapTimelimitExceeded
{-# LINE 93 "LDAP/Data.hsc" #-}
toEnum (4) = LdapSizelimitExceeded
{-# LINE 94 "LDAP/Data.hsc" #-}
toEnum (5) = LdapCompareFalse
{-# LINE 95 "LDAP/Data.hsc" #-}
toEnum (6) = LdapCompareTrue
{-# LINE 96 "LDAP/Data.hsc" #-}
toEnum (7) = LdapAuthMethodNotSupported
{-# LINE 97 "LDAP/Data.hsc" #-}
toEnum (7) = LdapStrongAuthNotSupported
{-# LINE 98 "LDAP/Data.hsc" #-}
toEnum (8) = LdapStrongAuthRequired
{-# LINE 99 "LDAP/Data.hsc" #-}
toEnum (9) = LdapPartialResults
{-# LINE 100 "LDAP/Data.hsc" #-}
toEnum (10) = LdapReferral
{-# LINE 101 "LDAP/Data.hsc" #-}
toEnum (11) = LdapAdminlimitExceeded
{-# LINE 102 "LDAP/Data.hsc" #-}
toEnum (12) = LdapUnavailableCriticalExtension
{-# LINE 103 "LDAP/Data.hsc" #-}
toEnum (13) = LdapConfidentialityRequired
{-# LINE 104 "LDAP/Data.hsc" #-}
toEnum (14) = LdapSaslBindInProgress
{-# LINE 105 "LDAP/Data.hsc" #-}
toEnum (16) = LdapNoSuchAttribute
{-# LINE 106 "LDAP/Data.hsc" #-}
toEnum (17) = LdapUndefinedType
{-# LINE 107 "LDAP/Data.hsc" #-}
toEnum (18) = LdapInappropriateMatching
{-# LINE 108 "LDAP/Data.hsc" #-}
toEnum (19) = LdapConstraintViolation
{-# LINE 109 "LDAP/Data.hsc" #-}
toEnum (20) = LdapTypeOrValueExists
{-# LINE 110 "LDAP/Data.hsc" #-}
toEnum (21) = LdapInvalidSyntax
{-# LINE 111 "LDAP/Data.hsc" #-}
toEnum (32) = LdapNoSuchObject
{-# LINE 112 "LDAP/Data.hsc" #-}
toEnum (33) = LdapAliasProblem
{-# LINE 113 "LDAP/Data.hsc" #-}
toEnum (34) = LdapInvalidDnSyntax
{-# LINE 114 "LDAP/Data.hsc" #-}
toEnum (35) = LdapIsLeaf
{-# LINE 115 "LDAP/Data.hsc" #-}
toEnum (36) = LdapAliasDerefProblem
{-# LINE 116 "LDAP/Data.hsc" #-}
toEnum (47) = LdapProxyAuthzFailure
{-# LINE 117 "LDAP/Data.hsc" #-}
toEnum (48) = LdapInappropriateAuth
{-# LINE 118 "LDAP/Data.hsc" #-}
toEnum (49) = LdapInvalidCredentials
{-# LINE 119 "LDAP/Data.hsc" #-}
toEnum (50) = LdapInsufficientAccess
{-# LINE 120 "LDAP/Data.hsc" #-}
toEnum (51) = LdapBusy
{-# LINE 121 "LDAP/Data.hsc" #-}
toEnum (52) = LdapUnavailable
{-# LINE 122 "LDAP/Data.hsc" #-}
toEnum (53) = LdapUnwillingToPerform
{-# LINE 123 "LDAP/Data.hsc" #-}
toEnum (54) = LdapLoopDetect
{-# LINE 124 "LDAP/Data.hsc" #-}
toEnum (64) = LdapNamingViolation
{-# LINE 125 "LDAP/Data.hsc" #-}
toEnum (65) = LdapObjectClassViolation
{-# LINE 126 "LDAP/Data.hsc" #-}
toEnum (66) = LdapNotAllowedOnNonleaf
{-# LINE 127 "LDAP/Data.hsc" #-}
toEnum (67) = LdapNotAllowedOnRdn
{-# LINE 128 "LDAP/Data.hsc" #-}
toEnum (68) = LdapAlreadyExists
{-# LINE 129 "LDAP/Data.hsc" #-}
toEnum (69) = LdapNoObjectClassMods
{-# LINE 130 "LDAP/Data.hsc" #-}
toEnum (70) = LdapResultsTooLarge
{-# LINE 131 "LDAP/Data.hsc" #-}
toEnum (71) = LdapAffectsMultipleDsas
{-# LINE 132 "LDAP/Data.hsc" #-}
toEnum (80) = LdapOther
{-# LINE 133 "LDAP/Data.hsc" #-}
toEnum (-1) = LdapServerDown
{-# LINE 134 "LDAP/Data.hsc" #-}
toEnum (-2) = LdapLocalError
{-# LINE 135 "LDAP/Data.hsc" #-}
toEnum (-3) = LdapEncodingError
{-# LINE 136 "LDAP/Data.hsc" #-}
toEnum (-4) = LdapDecodingError
{-# LINE 137 "LDAP/Data.hsc" #-}
toEnum (-5) = LdapTimeout
{-# LINE 138 "LDAP/Data.hsc" #-}
toEnum (-6) = LdapAuthUnknown
{-# LINE 139 "LDAP/Data.hsc" #-}
toEnum (-7) = LdapFilterError
{-# LINE 140 "LDAP/Data.hsc" #-}
toEnum (-8) = LdapUserCancelled
{-# LINE 141 "LDAP/Data.hsc" #-}
toEnum (-9) = LdapParamError
{-# LINE 142 "LDAP/Data.hsc" #-}
toEnum (-10) = LdapNoMemory
{-# LINE 143 "LDAP/Data.hsc" #-}
toEnum (-11) = LdapConnectError
{-# LINE 144 "LDAP/Data.hsc" #-}
toEnum (-12) = LdapNotSupported
{-# LINE 145 "LDAP/Data.hsc" #-}
toEnum (-13) = LdapControlNotFound
{-# LINE 146 "LDAP/Data.hsc" #-}
toEnum (-14) = LdapNoResultsReturned
{-# LINE 147 "LDAP/Data.hsc" #-}
toEnum (-15) = LdapMoreResultsToReturn
{-# LINE 148 "LDAP/Data.hsc" #-}
toEnum (-16) = LdapClientLoop
{-# LINE 149 "LDAP/Data.hsc" #-}
toEnum (-17) = LdapReferralLimitExceeded
{-# LINE 150 "LDAP/Data.hsc" #-}
toEnum x = UnknownLDAPReturnCode x
fromEnum :: LDAPReturnCode -> Int
fromEnum LDAPReturnCode
LdapSuccess = (Int
0)
{-# LINE 153 "LDAP/Data.hsc" #-}
fromEnum LdapOperationsError = (1)
{-# LINE 154 "LDAP/Data.hsc" #-}
fromEnum LdapProtocolError = (2)
{-# LINE 155 "LDAP/Data.hsc" #-}
fromEnum LdapTimelimitExceeded = (3)
{-# LINE 156 "LDAP/Data.hsc" #-}
fromEnum LdapSizelimitExceeded = (4)
{-# LINE 157 "LDAP/Data.hsc" #-}
fromEnum LdapCompareFalse = (5)
{-# LINE 158 "LDAP/Data.hsc" #-}
fromEnum LdapCompareTrue = (6)
{-# LINE 159 "LDAP/Data.hsc" #-}
fromEnum LdapAuthMethodNotSupported = (7)
{-# LINE 160 "LDAP/Data.hsc" #-}
fromEnum LdapStrongAuthNotSupported = (7)
{-# LINE 161 "LDAP/Data.hsc" #-}
fromEnum LdapStrongAuthRequired = (8)
{-# LINE 162 "LDAP/Data.hsc" #-}
fromEnum LdapPartialResults = (9)
{-# LINE 163 "LDAP/Data.hsc" #-}
fromEnum LdapReferral = (10)
{-# LINE 164 "LDAP/Data.hsc" #-}
fromEnum LdapAdminlimitExceeded = (11)
{-# LINE 165 "LDAP/Data.hsc" #-}
fromEnum LdapUnavailableCriticalExtension = (12)
{-# LINE 166 "LDAP/Data.hsc" #-}
fromEnum LdapConfidentialityRequired = (13)
{-# LINE 167 "LDAP/Data.hsc" #-}
fromEnum LdapSaslBindInProgress = (14)
{-# LINE 168 "LDAP/Data.hsc" #-}
fromEnum LdapNoSuchAttribute = (16)
{-# LINE 169 "LDAP/Data.hsc" #-}
fromEnum LdapUndefinedType = (17)
{-# LINE 170 "LDAP/Data.hsc" #-}
fromEnum LdapInappropriateMatching = (18)
{-# LINE 171 "LDAP/Data.hsc" #-}
fromEnum LdapConstraintViolation = (19)
{-# LINE 172 "LDAP/Data.hsc" #-}
fromEnum LdapTypeOrValueExists = (20)
{-# LINE 173 "LDAP/Data.hsc" #-}
fromEnum LdapInvalidSyntax = (21)
{-# LINE 174 "LDAP/Data.hsc" #-}
fromEnum LdapNoSuchObject = (32)
{-# LINE 175 "LDAP/Data.hsc" #-}
fromEnum LdapAliasProblem = (33)
{-# LINE 176 "LDAP/Data.hsc" #-}
fromEnum LdapInvalidDnSyntax = (34)
{-# LINE 177 "LDAP/Data.hsc" #-}
fromEnum LdapIsLeaf = (35)
{-# LINE 178 "LDAP/Data.hsc" #-}
fromEnum LdapAliasDerefProblem = (36)
{-# LINE 179 "LDAP/Data.hsc" #-}
fromEnum LdapProxyAuthzFailure = (47)
{-# LINE 180 "LDAP/Data.hsc" #-}
fromEnum LdapInappropriateAuth = (48)
{-# LINE 181 "LDAP/Data.hsc" #-}
fromEnum LdapInvalidCredentials = (49)
{-# LINE 182 "LDAP/Data.hsc" #-}
fromEnum LdapInsufficientAccess = (50)
{-# LINE 183 "LDAP/Data.hsc" #-}
fromEnum LdapBusy = (51)
{-# LINE 184 "LDAP/Data.hsc" #-}
fromEnum LdapUnavailable = (52)
{-# LINE 185 "LDAP/Data.hsc" #-}
fromEnum LdapUnwillingToPerform = (53)
{-# LINE 186 "LDAP/Data.hsc" #-}
fromEnum LdapLoopDetect = (54)
{-# LINE 187 "LDAP/Data.hsc" #-}
fromEnum LdapNamingViolation = (64)
{-# LINE 188 "LDAP/Data.hsc" #-}
fromEnum LdapObjectClassViolation = (65)
{-# LINE 189 "LDAP/Data.hsc" #-}
fromEnum LdapNotAllowedOnNonleaf = (66)
{-# LINE 190 "LDAP/Data.hsc" #-}
fromEnum LdapNotAllowedOnRdn = (67)
{-# LINE 191 "LDAP/Data.hsc" #-}
fromEnum LdapAlreadyExists = (68)
{-# LINE 192 "LDAP/Data.hsc" #-}
fromEnum LdapNoObjectClassMods = (69)
{-# LINE 193 "LDAP/Data.hsc" #-}
fromEnum LdapResultsTooLarge = (70)
{-# LINE 194 "LDAP/Data.hsc" #-}
fromEnum LdapAffectsMultipleDsas = (71)
{-# LINE 195 "LDAP/Data.hsc" #-}
fromEnum LdapOther = (80)
{-# LINE 196 "LDAP/Data.hsc" #-}
fromEnum LdapServerDown = (-1)
{-# LINE 197 "LDAP/Data.hsc" #-}
fromEnum LdapLocalError = (-2)
{-# LINE 198 "LDAP/Data.hsc" #-}
fromEnum LdapEncodingError = (-3)
{-# LINE 199 "LDAP/Data.hsc" #-}
fromEnum LdapDecodingError = (-4)
{-# LINE 200 "LDAP/Data.hsc" #-}
fromEnum LdapTimeout = (-5)
{-# LINE 201 "LDAP/Data.hsc" #-}
fromEnum LdapAuthUnknown = (-6)
{-# LINE 202 "LDAP/Data.hsc" #-}
fromEnum LdapFilterError = (-7)
{-# LINE 203 "LDAP/Data.hsc" #-}
fromEnum LdapUserCancelled = (-8)
{-# LINE 204 "LDAP/Data.hsc" #-}
fromEnum LdapParamError = (-9)
{-# LINE 205 "LDAP/Data.hsc" #-}
fromEnum LdapNoMemory = (-10)
{-# LINE 206 "LDAP/Data.hsc" #-}
fromEnum LdapConnectError = (-11)
{-# LINE 207 "LDAP/Data.hsc" #-}
fromEnum LdapNotSupported = (-12)
{-# LINE 208 "LDAP/Data.hsc" #-}
fromEnum LdapControlNotFound = (-13)
{-# LINE 209 "LDAP/Data.hsc" #-}
fromEnum LdapNoResultsReturned = (-14)
{-# LINE 210 "LDAP/Data.hsc" #-}
fromEnum LdapMoreResultsToReturn = (-15)
{-# LINE 211 "LDAP/Data.hsc" #-}
fromEnum LdapClientLoop = (-16)
{-# LINE 212 "LDAP/Data.hsc" #-}
fromEnum LdapReferralLimitExceeded = (-17)
{-# LINE 213 "LDAP/Data.hsc" #-}
fromEnum (UnknownLDAPReturnCode x) = x
instance Ord LDAPReturnCode where
compare :: LDAPReturnCode -> LDAPReturnCode -> Ordering
compare LDAPReturnCode
x LDAPReturnCode
y = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
compare (LDAPReturnCode -> Int
forall a. Enum a => a -> Int
fromEnum LDAPReturnCode
x) (LDAPReturnCode -> Int
forall a. Enum a => a -> Int
fromEnum LDAPReturnCode
y)
instance Eq LDAPReturnCode where
LDAPReturnCode
x == :: LDAPReturnCode -> LDAPReturnCode -> Bool
== LDAPReturnCode
y = (LDAPReturnCode -> Int
forall a. Enum a => a -> Int
fromEnum LDAPReturnCode
x) Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
== (LDAPReturnCode -> Int
forall a. Enum a => a -> Int
fromEnum LDAPReturnCode
y)
data LDAPOptionCode =
LdapOptApiInfo
| LdapOptDesc
| LdapOptDeref
| LdapOptSizelimit
| LdapOptTimelimit
| LdapOptReferrals
| LdapOptRestart
| LdapOptProtocolVersion
| LdapOptServerControls
| LdapOptClientControls
| LdapOptApiFeatureInfo
| LdapOptHostName
| LdapOptErrorNumber
| LdapOptErrorString
| LdapOptMatchedDn
| LdapOptSuccess
| LdapOptError
| UnknownLDAPOptionCode Int
deriving (Int -> LDAPOptionCode -> ShowS
[LDAPOptionCode] -> ShowS
LDAPOptionCode -> String
(Int -> LDAPOptionCode -> ShowS)
-> (LDAPOptionCode -> String)
-> ([LDAPOptionCode] -> ShowS)
-> Show LDAPOptionCode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LDAPOptionCode -> ShowS
showsPrec :: Int -> LDAPOptionCode -> ShowS
$cshow :: LDAPOptionCode -> String
show :: LDAPOptionCode -> String
$cshowList :: [LDAPOptionCode] -> ShowS
showList :: [LDAPOptionCode] -> ShowS
Show)
instance Enum LDAPOptionCode where
toEnum :: Int -> LDAPOptionCode
toEnum (Int
0) = LDAPOptionCode
LdapOptApiInfo
{-# LINE 246 "LDAP/Data.hsc" #-}
toEnum (1) = LdapOptDesc
{-# LINE 247 "LDAP/Data.hsc" #-}
toEnum (2) = LdapOptDeref
{-# LINE 248 "LDAP/Data.hsc" #-}
toEnum (3) = LdapOptSizelimit
{-# LINE 249 "LDAP/Data.hsc" #-}
toEnum (4) = LdapOptTimelimit
{-# LINE 250 "LDAP/Data.hsc" #-}
toEnum (8) = LdapOptReferrals
{-# LINE 251 "LDAP/Data.hsc" #-}
toEnum (9) = LdapOptRestart
{-# LINE 252 "LDAP/Data.hsc" #-}
toEnum (17) = LdapOptProtocolVersion
{-# LINE 253 "LDAP/Data.hsc" #-}
toEnum (18) = LdapOptServerControls
{-# LINE 254 "LDAP/Data.hsc" #-}
toEnum (19) = LdapOptClientControls
{-# LINE 255 "LDAP/Data.hsc" #-}
toEnum (21) = LdapOptApiFeatureInfo
{-# LINE 256 "LDAP/Data.hsc" #-}
toEnum (48) = LdapOptHostName
{-# LINE 257 "LDAP/Data.hsc" #-}
toEnum (49) = LdapOptErrorNumber
{-# LINE 258 "LDAP/Data.hsc" #-}
toEnum (50) = LdapOptErrorString
{-# LINE 259 "LDAP/Data.hsc" #-}
toEnum (51) = LdapOptMatchedDn
{-# LINE 260 "LDAP/Data.hsc" #-}
toEnum (0) = LdapOptSuccess
{-# LINE 261 "LDAP/Data.hsc" #-}
toEnum (-1) = LdapOptError
{-# LINE 262 "LDAP/Data.hsc" #-}
toEnum x = UnknownLDAPOptionCode x
fromEnum :: LDAPOptionCode -> Int
fromEnum LDAPOptionCode
LdapOptApiInfo = (Int
0)
{-# LINE 265 "LDAP/Data.hsc" #-}
fromEnum LdapOptDesc = (1)
{-# LINE 266 "LDAP/Data.hsc" #-}
fromEnum LdapOptDeref = (2)
{-# LINE 267 "LDAP/Data.hsc" #-}
fromEnum LdapOptSizelimit = (3)
{-# LINE 268 "LDAP/Data.hsc" #-}
fromEnum LdapOptTimelimit = (4)
{-# LINE 269 "LDAP/Data.hsc" #-}
fromEnum LdapOptReferrals = (8)
{-# LINE 270 "LDAP/Data.hsc" #-}
fromEnum LdapOptRestart = (9)
{-# LINE 271 "LDAP/Data.hsc" #-}
fromEnum LdapOptProtocolVersion = (17)
{-# LINE 272 "LDAP/Data.hsc" #-}
fromEnum LdapOptServerControls = (18)
{-# LINE 273 "LDAP/Data.hsc" #-}
fromEnum LdapOptClientControls = (19)
{-# LINE 274 "LDAP/Data.hsc" #-}
fromEnum LdapOptApiFeatureInfo = (21)
{-# LINE 275 "LDAP/Data.hsc" #-}
fromEnum LdapOptHostName = (48)
{-# LINE 276 "LDAP/Data.hsc" #-}
fromEnum LdapOptErrorNumber = (49)
{-# LINE 277 "LDAP/Data.hsc" #-}
fromEnum LdapOptErrorString = (50)
{-# LINE 278 "LDAP/Data.hsc" #-}
fromEnum LdapOptMatchedDn = (51)
{-# LINE 279 "LDAP/Data.hsc" #-}
fromEnum LdapOptSuccess = (0)
{-# LINE 280 "LDAP/Data.hsc" #-}
fromEnum LdapOptError = (-1)
{-# LINE 281 "LDAP/Data.hsc" #-}
fromEnum (UnknownLDAPOptionCode x) = x
instance Ord LDAPOptionCode where
compare :: LDAPOptionCode -> LDAPOptionCode -> Ordering
compare LDAPOptionCode
x LDAPOptionCode
y = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
compare (LDAPOptionCode -> Int
forall a. Enum a => a -> Int
fromEnum LDAPOptionCode
x) (LDAPOptionCode -> Int
forall a. Enum a => a -> Int
fromEnum LDAPOptionCode
y)
instance Eq LDAPOptionCode where
LDAPOptionCode
x == :: LDAPOptionCode -> LDAPOptionCode -> Bool
== LDAPOptionCode
y = (LDAPOptionCode -> Int
forall a. Enum a => a -> Int
fromEnum LDAPOptionCode
x) Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
== (LDAPOptionCode -> Int
forall a. Enum a => a -> Int
fromEnum LDAPOptionCode
y)
data LDAPScope =
LdapScopeDefault
| LdapScopeBase
| LdapScopeOnelevel
| LdapScopeSubtree
| UnknownLDAPScope Int
deriving (Int -> LDAPScope -> ShowS
[LDAPScope] -> ShowS
LDAPScope -> String
(Int -> LDAPScope -> ShowS)
-> (LDAPScope -> String)
-> ([LDAPScope] -> ShowS)
-> Show LDAPScope
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LDAPScope -> ShowS
showsPrec :: Int -> LDAPScope -> ShowS
$cshow :: LDAPScope -> String
show :: LDAPScope -> String
$cshowList :: [LDAPScope] -> ShowS
showList :: [LDAPScope] -> ShowS
Show)
instance Enum LDAPScope where
toEnum :: Int -> LDAPScope
toEnum (-1) = LDAPScope
LdapScopeDefault
{-# LINE 301 "LDAP/Data.hsc" #-}
toEnum (0) = LdapScopeBase
{-# LINE 302 "LDAP/Data.hsc" #-}
toEnum (1) = LdapScopeOnelevel
{-# LINE 303 "LDAP/Data.hsc" #-}
toEnum (2) = LdapScopeSubtree
{-# LINE 304 "LDAP/Data.hsc" #-}
toEnum x = UnknownLDAPScope x
fromEnum :: LDAPScope -> Int
fromEnum LDAPScope
LdapScopeDefault = (-Int
1)
{-# LINE 307 "LDAP/Data.hsc" #-}
fromEnum LdapScopeBase = (0)
{-# LINE 308 "LDAP/Data.hsc" #-}
fromEnum LdapScopeOnelevel = (1)
{-# LINE 309 "LDAP/Data.hsc" #-}
fromEnum LdapScopeSubtree = (2)
{-# LINE 310 "LDAP/Data.hsc" #-}
fromEnum (UnknownLDAPScope x) = x
instance Ord LDAPScope where
compare :: LDAPScope -> LDAPScope -> Ordering
compare LDAPScope
x LDAPScope
y = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
compare (LDAPScope -> Int
forall a. Enum a => a -> Int
fromEnum LDAPScope
x) (LDAPScope -> Int
forall a. Enum a => a -> Int
fromEnum LDAPScope
y)
instance Eq LDAPScope where
LDAPScope
x == :: LDAPScope -> LDAPScope -> Bool
== LDAPScope
y = (LDAPScope -> Int
forall a. Enum a => a -> Int
fromEnum LDAPScope
x) Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
== (LDAPScope -> Int
forall a. Enum a => a -> Int
fromEnum LDAPScope
y)
data LDAPModOp =
LdapModAdd
| LdapModDelete
| LdapModReplace
| UnknownLDAPModOp Int
deriving (Int -> LDAPModOp -> ShowS
[LDAPModOp] -> ShowS
LDAPModOp -> String
(Int -> LDAPModOp -> ShowS)
-> (LDAPModOp -> String)
-> ([LDAPModOp] -> ShowS)
-> Show LDAPModOp
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LDAPModOp -> ShowS
showsPrec :: Int -> LDAPModOp -> ShowS
$cshow :: LDAPModOp -> String
show :: LDAPModOp -> String
$cshowList :: [LDAPModOp] -> ShowS
showList :: [LDAPModOp] -> ShowS
Show)
instance Enum LDAPModOp where
toEnum :: Int -> LDAPModOp
toEnum (Int
0) = LDAPModOp
LdapModAdd
{-# LINE 329 "LDAP/Data.hsc" #-}
toEnum (1) = LdapModDelete
{-# LINE 330 "LDAP/Data.hsc" #-}
toEnum (2) = LdapModReplace
{-# LINE 331 "LDAP/Data.hsc" #-}
toEnum x = UnknownLDAPModOp x
fromEnum :: LDAPModOp -> Int
fromEnum LDAPModOp
LdapModAdd = (Int
0)
{-# LINE 334 "LDAP/Data.hsc" #-}
fromEnum LdapModDelete = (1)
{-# LINE 335 "LDAP/Data.hsc" #-}
fromEnum LdapModReplace = (2)
{-# LINE 336 "LDAP/Data.hsc" #-}
fromEnum (UnknownLDAPModOp x) = x
instance Ord LDAPModOp where
compare :: LDAPModOp -> LDAPModOp -> Ordering
compare LDAPModOp
x LDAPModOp
y = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
compare (LDAPModOp -> Int
forall a. Enum a => a -> Int
fromEnum LDAPModOp
x) (LDAPModOp -> Int
forall a. Enum a => a -> Int
fromEnum LDAPModOp
y)
instance Eq LDAPModOp where
LDAPModOp
x == :: LDAPModOp -> LDAPModOp -> Bool
== LDAPModOp
y = (LDAPModOp -> Int
forall a. Enum a => a -> Int
fromEnum LDAPModOp
x) Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
== (LDAPModOp -> Int
forall a. Enum a => a -> Int
fromEnum LDAPModOp
y)