#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Gio.Enums
(
BusType(..) ,
ConverterResult(..) ,
CredentialsType(..) ,
DBusError(..) ,
catchDBusError ,
handleDBusError ,
DBusMessageByteOrder(..) ,
DBusMessageHeaderField(..) ,
DBusMessageType(..) ,
DataStreamByteOrder(..) ,
DataStreamNewlineType(..) ,
DriveStartStopType(..) ,
EmblemOrigin(..) ,
FileAttributeStatus(..) ,
FileAttributeType(..) ,
FileMonitorEvent(..) ,
FileType(..) ,
FilesystemPreviewType(..) ,
IOErrorEnum(..) ,
catchIOErrorEnum ,
handleIOErrorEnum ,
IOModuleScopeFlags(..) ,
MountOperationResult(..) ,
NetworkConnectivity(..) ,
NotificationPriority(..) ,
PasswordSave(..) ,
PollableReturn(..) ,
ResolverError(..) ,
catchResolverError ,
handleResolverError ,
ResolverRecordType(..) ,
ResourceError(..) ,
catchResourceError ,
handleResourceError ,
SocketClientEvent(..) ,
SocketFamily(..) ,
SocketListenerEvent(..) ,
SocketProtocol(..) ,
SocketType(..) ,
TlsAuthenticationMode(..) ,
TlsCertificateRequestFlags(..) ,
TlsDatabaseLookupFlags(..) ,
TlsError(..) ,
catchTlsError ,
handleTlsError ,
TlsInteractionResult(..) ,
TlsRehandshakeMode(..) ,
UnixSocketAddressType(..) ,
ZlibCompressorFormat(..) ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
data ZlibCompressorFormat =
ZlibCompressorFormatZlib
| ZlibCompressorFormatGzip
| ZlibCompressorFormatRaw
| AnotherZlibCompressorFormat Int
deriving (Show, Eq)
instance P.Enum ZlibCompressorFormat where
fromEnum ZlibCompressorFormatZlib = 0
fromEnum ZlibCompressorFormatGzip = 1
fromEnum ZlibCompressorFormatRaw = 2
fromEnum (AnotherZlibCompressorFormat k) = k
toEnum 0 = ZlibCompressorFormatZlib
toEnum 1 = ZlibCompressorFormatGzip
toEnum 2 = ZlibCompressorFormatRaw
toEnum k = AnotherZlibCompressorFormat k
instance P.Ord ZlibCompressorFormat where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_zlib_compressor_format_get_type" c_g_zlib_compressor_format_get_type ::
IO GType
instance BoxedEnum ZlibCompressorFormat where
boxedEnumType _ = c_g_zlib_compressor_format_get_type
data UnixSocketAddressType =
UnixSocketAddressTypeInvalid
| UnixSocketAddressTypeAnonymous
| UnixSocketAddressTypePath
| UnixSocketAddressTypeAbstract
| UnixSocketAddressTypeAbstractPadded
| AnotherUnixSocketAddressType Int
deriving (Show, Eq)
instance P.Enum UnixSocketAddressType where
fromEnum UnixSocketAddressTypeInvalid = 0
fromEnum UnixSocketAddressTypeAnonymous = 1
fromEnum UnixSocketAddressTypePath = 2
fromEnum UnixSocketAddressTypeAbstract = 3
fromEnum UnixSocketAddressTypeAbstractPadded = 4
fromEnum (AnotherUnixSocketAddressType k) = k
toEnum 0 = UnixSocketAddressTypeInvalid
toEnum 1 = UnixSocketAddressTypeAnonymous
toEnum 2 = UnixSocketAddressTypePath
toEnum 3 = UnixSocketAddressTypeAbstract
toEnum 4 = UnixSocketAddressTypeAbstractPadded
toEnum k = AnotherUnixSocketAddressType k
instance P.Ord UnixSocketAddressType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_unix_socket_address_type_get_type" c_g_unix_socket_address_type_get_type ::
IO GType
instance BoxedEnum UnixSocketAddressType where
boxedEnumType _ = c_g_unix_socket_address_type_get_type
{-# DEPRECATED TlsRehandshakeMode ["(Since version 2.60.)","Changing the rehandshake mode is no longer"," required for compatibility. Also, rehandshaking has been removed"," from the TLS protocol in TLS 1.3."] #-}
data TlsRehandshakeMode =
TlsRehandshakeModeNever
| TlsRehandshakeModeSafely
| TlsRehandshakeModeUnsafely
| AnotherTlsRehandshakeMode Int
deriving (Show, Eq)
instance P.Enum TlsRehandshakeMode where
fromEnum TlsRehandshakeModeNever = 0
fromEnum TlsRehandshakeModeSafely = 1
fromEnum TlsRehandshakeModeUnsafely = 2
fromEnum (AnotherTlsRehandshakeMode k) = k
toEnum 0 = TlsRehandshakeModeNever
toEnum 1 = TlsRehandshakeModeSafely
toEnum 2 = TlsRehandshakeModeUnsafely
toEnum k = AnotherTlsRehandshakeMode k
instance P.Ord TlsRehandshakeMode where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_tls_rehandshake_mode_get_type" c_g_tls_rehandshake_mode_get_type ::
IO GType
instance BoxedEnum TlsRehandshakeMode where
boxedEnumType _ = c_g_tls_rehandshake_mode_get_type
data TlsInteractionResult =
TlsInteractionResultUnhandled
| TlsInteractionResultHandled
| TlsInteractionResultFailed
| AnotherTlsInteractionResult Int
deriving (Show, Eq)
instance P.Enum TlsInteractionResult where
fromEnum TlsInteractionResultUnhandled = 0
fromEnum TlsInteractionResultHandled = 1
fromEnum TlsInteractionResultFailed = 2
fromEnum (AnotherTlsInteractionResult k) = k
toEnum 0 = TlsInteractionResultUnhandled
toEnum 1 = TlsInteractionResultHandled
toEnum 2 = TlsInteractionResultFailed
toEnum k = AnotherTlsInteractionResult k
instance P.Ord TlsInteractionResult where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_tls_interaction_result_get_type" c_g_tls_interaction_result_get_type ::
IO GType
instance BoxedEnum TlsInteractionResult where
boxedEnumType _ = c_g_tls_interaction_result_get_type
data TlsError =
TlsErrorUnavailable
| TlsErrorMisc
| TlsErrorBadCertificate
| TlsErrorNotTls
| TlsErrorHandshake
| TlsErrorCertificateRequired
| TlsErrorEof
| TlsErrorInappropriateFallback
| AnotherTlsError Int
deriving (Show, Eq)
instance P.Enum TlsError where
fromEnum TlsErrorUnavailable = 0
fromEnum TlsErrorMisc = 1
fromEnum TlsErrorBadCertificate = 2
fromEnum TlsErrorNotTls = 3
fromEnum TlsErrorHandshake = 4
fromEnum TlsErrorCertificateRequired = 5
fromEnum TlsErrorEof = 6
fromEnum TlsErrorInappropriateFallback = 7
fromEnum (AnotherTlsError k) = k
toEnum 0 = TlsErrorUnavailable
toEnum 1 = TlsErrorMisc
toEnum 2 = TlsErrorBadCertificate
toEnum 3 = TlsErrorNotTls
toEnum 4 = TlsErrorHandshake
toEnum 5 = TlsErrorCertificateRequired
toEnum 6 = TlsErrorEof
toEnum 7 = TlsErrorInappropriateFallback
toEnum k = AnotherTlsError k
instance P.Ord TlsError where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance GErrorClass TlsError where
gerrorClassDomain _ = "g-tls-error-quark"
catchTlsError ::
IO a ->
(TlsError -> GErrorMessage -> IO a) ->
IO a
catchTlsError = catchGErrorJustDomain
handleTlsError ::
(TlsError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleTlsError = handleGErrorJustDomain
foreign import ccall "g_tls_error_get_type" c_g_tls_error_get_type ::
IO GType
instance BoxedEnum TlsError where
boxedEnumType _ = c_g_tls_error_get_type
data TlsDatabaseLookupFlags =
TlsDatabaseLookupFlagsNone
| TlsDatabaseLookupFlagsKeypair
| AnotherTlsDatabaseLookupFlags Int
deriving (Show, Eq)
instance P.Enum TlsDatabaseLookupFlags where
fromEnum TlsDatabaseLookupFlagsNone = 0
fromEnum TlsDatabaseLookupFlagsKeypair = 1
fromEnum (AnotherTlsDatabaseLookupFlags k) = k
toEnum 0 = TlsDatabaseLookupFlagsNone
toEnum 1 = TlsDatabaseLookupFlagsKeypair
toEnum k = AnotherTlsDatabaseLookupFlags k
instance P.Ord TlsDatabaseLookupFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_tls_database_lookup_flags_get_type" c_g_tls_database_lookup_flags_get_type ::
IO GType
instance BoxedEnum TlsDatabaseLookupFlags where
boxedEnumType _ = c_g_tls_database_lookup_flags_get_type
data TlsCertificateRequestFlags =
TlsCertificateRequestFlagsNone
| AnotherTlsCertificateRequestFlags Int
deriving (Show, Eq)
instance P.Enum TlsCertificateRequestFlags where
fromEnum TlsCertificateRequestFlagsNone = 0
fromEnum (AnotherTlsCertificateRequestFlags k) = k
toEnum 0 = TlsCertificateRequestFlagsNone
toEnum k = AnotherTlsCertificateRequestFlags k
instance P.Ord TlsCertificateRequestFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_tls_certificate_request_flags_get_type" c_g_tls_certificate_request_flags_get_type ::
IO GType
instance BoxedEnum TlsCertificateRequestFlags where
boxedEnumType _ = c_g_tls_certificate_request_flags_get_type
data TlsAuthenticationMode =
TlsAuthenticationModeNone
| TlsAuthenticationModeRequested
| TlsAuthenticationModeRequired
| AnotherTlsAuthenticationMode Int
deriving (Show, Eq)
instance P.Enum TlsAuthenticationMode where
fromEnum TlsAuthenticationModeNone = 0
fromEnum TlsAuthenticationModeRequested = 1
fromEnum TlsAuthenticationModeRequired = 2
fromEnum (AnotherTlsAuthenticationMode k) = k
toEnum 0 = TlsAuthenticationModeNone
toEnum 1 = TlsAuthenticationModeRequested
toEnum 2 = TlsAuthenticationModeRequired
toEnum k = AnotherTlsAuthenticationMode k
instance P.Ord TlsAuthenticationMode where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_tls_authentication_mode_get_type" c_g_tls_authentication_mode_get_type ::
IO GType
instance BoxedEnum TlsAuthenticationMode where
boxedEnumType _ = c_g_tls_authentication_mode_get_type
data SocketType =
SocketTypeInvalid
| SocketTypeStream
| SocketTypeDatagram
| SocketTypeSeqpacket
| AnotherSocketType Int
deriving (Show, Eq)
instance P.Enum SocketType where
fromEnum SocketTypeInvalid = 0
fromEnum SocketTypeStream = 1
fromEnum SocketTypeDatagram = 2
fromEnum SocketTypeSeqpacket = 3
fromEnum (AnotherSocketType k) = k
toEnum 0 = SocketTypeInvalid
toEnum 1 = SocketTypeStream
toEnum 2 = SocketTypeDatagram
toEnum 3 = SocketTypeSeqpacket
toEnum k = AnotherSocketType k
instance P.Ord SocketType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_socket_type_get_type" c_g_socket_type_get_type ::
IO GType
instance BoxedEnum SocketType where
boxedEnumType _ = c_g_socket_type_get_type
data SocketProtocol =
SocketProtocolUnknown
| SocketProtocolDefault
| SocketProtocolTcp
| SocketProtocolUdp
| SocketProtocolSctp
| AnotherSocketProtocol Int
deriving (Show, Eq)
instance P.Enum SocketProtocol where
fromEnum SocketProtocolUnknown = -1
fromEnum SocketProtocolDefault = 0
fromEnum SocketProtocolTcp = 6
fromEnum SocketProtocolUdp = 17
fromEnum SocketProtocolSctp = 132
fromEnum (AnotherSocketProtocol k) = k
toEnum -1 = SocketProtocolUnknown
toEnum 0 = SocketProtocolDefault
toEnum 6 = SocketProtocolTcp
toEnum 17 = SocketProtocolUdp
toEnum 132 = SocketProtocolSctp
toEnum k = AnotherSocketProtocol k
instance P.Ord SocketProtocol where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_socket_protocol_get_type" c_g_socket_protocol_get_type ::
IO GType
instance BoxedEnum SocketProtocol where
boxedEnumType _ = c_g_socket_protocol_get_type
data SocketListenerEvent =
SocketListenerEventBinding
| SocketListenerEventBound
| SocketListenerEventListening
| SocketListenerEventListened
| AnotherSocketListenerEvent Int
deriving (Show, Eq)
instance P.Enum SocketListenerEvent where
fromEnum SocketListenerEventBinding = 0
fromEnum SocketListenerEventBound = 1
fromEnum SocketListenerEventListening = 2
fromEnum SocketListenerEventListened = 3
fromEnum (AnotherSocketListenerEvent k) = k
toEnum 0 = SocketListenerEventBinding
toEnum 1 = SocketListenerEventBound
toEnum 2 = SocketListenerEventListening
toEnum 3 = SocketListenerEventListened
toEnum k = AnotherSocketListenerEvent k
instance P.Ord SocketListenerEvent where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_socket_listener_event_get_type" c_g_socket_listener_event_get_type ::
IO GType
instance BoxedEnum SocketListenerEvent where
boxedEnumType _ = c_g_socket_listener_event_get_type
data SocketFamily =
SocketFamilyInvalid
| SocketFamilyUnix
| SocketFamilyIpv4
| SocketFamilyIpv6
| AnotherSocketFamily Int
deriving (Show, Eq)
instance P.Enum SocketFamily where
fromEnum SocketFamilyInvalid = 0
fromEnum SocketFamilyUnix = 1
fromEnum SocketFamilyIpv4 = 2
fromEnum SocketFamilyIpv6 = 10
fromEnum (AnotherSocketFamily k) = k
toEnum 0 = SocketFamilyInvalid
toEnum 1 = SocketFamilyUnix
toEnum 2 = SocketFamilyIpv4
toEnum 10 = SocketFamilyIpv6
toEnum k = AnotherSocketFamily k
instance P.Ord SocketFamily where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_socket_family_get_type" c_g_socket_family_get_type ::
IO GType
instance BoxedEnum SocketFamily where
boxedEnumType _ = c_g_socket_family_get_type
data SocketClientEvent =
SocketClientEventResolving
| SocketClientEventResolved
| SocketClientEventConnecting
| SocketClientEventConnected
| SocketClientEventProxyNegotiating
| SocketClientEventProxyNegotiated
| SocketClientEventTlsHandshaking
| SocketClientEventTlsHandshaked
| SocketClientEventComplete
| AnotherSocketClientEvent Int
deriving (Show, Eq)
instance P.Enum SocketClientEvent where
fromEnum SocketClientEventResolving = 0
fromEnum SocketClientEventResolved = 1
fromEnum SocketClientEventConnecting = 2
fromEnum SocketClientEventConnected = 3
fromEnum SocketClientEventProxyNegotiating = 4
fromEnum SocketClientEventProxyNegotiated = 5
fromEnum SocketClientEventTlsHandshaking = 6
fromEnum SocketClientEventTlsHandshaked = 7
fromEnum SocketClientEventComplete = 8
fromEnum (AnotherSocketClientEvent k) = k
toEnum 0 = SocketClientEventResolving
toEnum 1 = SocketClientEventResolved
toEnum 2 = SocketClientEventConnecting
toEnum 3 = SocketClientEventConnected
toEnum 4 = SocketClientEventProxyNegotiating
toEnum 5 = SocketClientEventProxyNegotiated
toEnum 6 = SocketClientEventTlsHandshaking
toEnum 7 = SocketClientEventTlsHandshaked
toEnum 8 = SocketClientEventComplete
toEnum k = AnotherSocketClientEvent k
instance P.Ord SocketClientEvent where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_socket_client_event_get_type" c_g_socket_client_event_get_type ::
IO GType
instance BoxedEnum SocketClientEvent where
boxedEnumType _ = c_g_socket_client_event_get_type
data ResourceError =
ResourceErrorNotFound
| ResourceErrorInternal
| AnotherResourceError Int
deriving (Show, Eq)
instance P.Enum ResourceError where
fromEnum ResourceErrorNotFound = 0
fromEnum ResourceErrorInternal = 1
fromEnum (AnotherResourceError k) = k
toEnum 0 = ResourceErrorNotFound
toEnum 1 = ResourceErrorInternal
toEnum k = AnotherResourceError k
instance P.Ord ResourceError where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance GErrorClass ResourceError where
gerrorClassDomain _ = "g-resource-error-quark"
catchResourceError ::
IO a ->
(ResourceError -> GErrorMessage -> IO a) ->
IO a
catchResourceError = catchGErrorJustDomain
handleResourceError ::
(ResourceError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleResourceError = handleGErrorJustDomain
foreign import ccall "g_resource_error_get_type" c_g_resource_error_get_type ::
IO GType
instance BoxedEnum ResourceError where
boxedEnumType _ = c_g_resource_error_get_type
data ResolverRecordType =
ResolverRecordTypeSrv
| ResolverRecordTypeMx
| ResolverRecordTypeTxt
| ResolverRecordTypeSoa
| ResolverRecordTypeNs
| AnotherResolverRecordType Int
deriving (Show, Eq)
instance P.Enum ResolverRecordType where
fromEnum ResolverRecordTypeSrv = 1
fromEnum ResolverRecordTypeMx = 2
fromEnum ResolverRecordTypeTxt = 3
fromEnum ResolverRecordTypeSoa = 4
fromEnum ResolverRecordTypeNs = 5
fromEnum (AnotherResolverRecordType k) = k
toEnum 1 = ResolverRecordTypeSrv
toEnum 2 = ResolverRecordTypeMx
toEnum 3 = ResolverRecordTypeTxt
toEnum 4 = ResolverRecordTypeSoa
toEnum 5 = ResolverRecordTypeNs
toEnum k = AnotherResolverRecordType k
instance P.Ord ResolverRecordType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_resolver_record_type_get_type" c_g_resolver_record_type_get_type ::
IO GType
instance BoxedEnum ResolverRecordType where
boxedEnumType _ = c_g_resolver_record_type_get_type
data ResolverError =
ResolverErrorNotFound
| ResolverErrorTemporaryFailure
| ResolverErrorInternal
| AnotherResolverError Int
deriving (Show, Eq)
instance P.Enum ResolverError where
fromEnum ResolverErrorNotFound = 0
fromEnum ResolverErrorTemporaryFailure = 1
fromEnum ResolverErrorInternal = 2
fromEnum (AnotherResolverError k) = k
toEnum 0 = ResolverErrorNotFound
toEnum 1 = ResolverErrorTemporaryFailure
toEnum 2 = ResolverErrorInternal
toEnum k = AnotherResolverError k
instance P.Ord ResolverError where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance GErrorClass ResolverError where
gerrorClassDomain _ = "g-resolver-error-quark"
catchResolverError ::
IO a ->
(ResolverError -> GErrorMessage -> IO a) ->
IO a
catchResolverError = catchGErrorJustDomain
handleResolverError ::
(ResolverError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleResolverError = handleGErrorJustDomain
foreign import ccall "g_resolver_error_get_type" c_g_resolver_error_get_type ::
IO GType
instance BoxedEnum ResolverError where
boxedEnumType _ = c_g_resolver_error_get_type
data PollableReturn =
PollableReturnFailed
| PollableReturnOk
| PollableReturnWouldBlock
| AnotherPollableReturn Int
deriving (Show, Eq)
instance P.Enum PollableReturn where
fromEnum PollableReturnFailed = 0
fromEnum PollableReturnOk = 1
fromEnum PollableReturnWouldBlock = -27
fromEnum (AnotherPollableReturn k) = k
toEnum 0 = PollableReturnFailed
toEnum 1 = PollableReturnOk
toEnum -27 = PollableReturnWouldBlock
toEnum k = AnotherPollableReturn k
instance P.Ord PollableReturn where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_pollable_return_get_type" c_g_pollable_return_get_type ::
IO GType
instance BoxedEnum PollableReturn where
boxedEnumType _ = c_g_pollable_return_get_type
data PasswordSave =
PasswordSaveNever
| PasswordSaveForSession
| PasswordSavePermanently
| AnotherPasswordSave Int
deriving (Show, Eq)
instance P.Enum PasswordSave where
fromEnum PasswordSaveNever = 0
fromEnum PasswordSaveForSession = 1
fromEnum PasswordSavePermanently = 2
fromEnum (AnotherPasswordSave k) = k
toEnum 0 = PasswordSaveNever
toEnum 1 = PasswordSaveForSession
toEnum 2 = PasswordSavePermanently
toEnum k = AnotherPasswordSave k
instance P.Ord PasswordSave where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_password_save_get_type" c_g_password_save_get_type ::
IO GType
instance BoxedEnum PasswordSave where
boxedEnumType _ = c_g_password_save_get_type
data NotificationPriority =
NotificationPriorityNormal
| NotificationPriorityLow
| NotificationPriorityHigh
| NotificationPriorityUrgent
| AnotherNotificationPriority Int
deriving (Show, Eq)
instance P.Enum NotificationPriority where
fromEnum NotificationPriorityNormal = 0
fromEnum NotificationPriorityLow = 1
fromEnum NotificationPriorityHigh = 2
fromEnum NotificationPriorityUrgent = 3
fromEnum (AnotherNotificationPriority k) = k
toEnum 0 = NotificationPriorityNormal
toEnum 1 = NotificationPriorityLow
toEnum 2 = NotificationPriorityHigh
toEnum 3 = NotificationPriorityUrgent
toEnum k = AnotherNotificationPriority k
instance P.Ord NotificationPriority where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_notification_priority_get_type" c_g_notification_priority_get_type ::
IO GType
instance BoxedEnum NotificationPriority where
boxedEnumType _ = c_g_notification_priority_get_type
data NetworkConnectivity =
NetworkConnectivityLocal
| NetworkConnectivityLimited
| NetworkConnectivityPortal
| NetworkConnectivityFull
| AnotherNetworkConnectivity Int
deriving (Show, Eq)
instance P.Enum NetworkConnectivity where
fromEnum NetworkConnectivityLocal = 1
fromEnum NetworkConnectivityLimited = 2
fromEnum NetworkConnectivityPortal = 3
fromEnum NetworkConnectivityFull = 4
fromEnum (AnotherNetworkConnectivity k) = k
toEnum 1 = NetworkConnectivityLocal
toEnum 2 = NetworkConnectivityLimited
toEnum 3 = NetworkConnectivityPortal
toEnum 4 = NetworkConnectivityFull
toEnum k = AnotherNetworkConnectivity k
instance P.Ord NetworkConnectivity where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_network_connectivity_get_type" c_g_network_connectivity_get_type ::
IO GType
instance BoxedEnum NetworkConnectivity where
boxedEnumType _ = c_g_network_connectivity_get_type
data MountOperationResult =
MountOperationResultHandled
| MountOperationResultAborted
| MountOperationResultUnhandled
| AnotherMountOperationResult Int
deriving (Show, Eq)
instance P.Enum MountOperationResult where
fromEnum MountOperationResultHandled = 0
fromEnum MountOperationResultAborted = 1
fromEnum MountOperationResultUnhandled = 2
fromEnum (AnotherMountOperationResult k) = k
toEnum 0 = MountOperationResultHandled
toEnum 1 = MountOperationResultAborted
toEnum 2 = MountOperationResultUnhandled
toEnum k = AnotherMountOperationResult k
instance P.Ord MountOperationResult where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_mount_operation_result_get_type" c_g_mount_operation_result_get_type ::
IO GType
instance BoxedEnum MountOperationResult where
boxedEnumType _ = c_g_mount_operation_result_get_type
data IOModuleScopeFlags =
IOModuleScopeFlagsNone
| IOModuleScopeFlagsBlockDuplicates
| AnotherIOModuleScopeFlags Int
deriving (Show, Eq)
instance P.Enum IOModuleScopeFlags where
fromEnum IOModuleScopeFlagsNone = 0
fromEnum IOModuleScopeFlagsBlockDuplicates = 1
fromEnum (AnotherIOModuleScopeFlags k) = k
toEnum 0 = IOModuleScopeFlagsNone
toEnum 1 = IOModuleScopeFlagsBlockDuplicates
toEnum k = AnotherIOModuleScopeFlags k
instance P.Ord IOModuleScopeFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_io_module_scope_flags_get_type" c_g_io_module_scope_flags_get_type ::
IO GType
instance BoxedEnum IOModuleScopeFlags where
boxedEnumType _ = c_g_io_module_scope_flags_get_type
data IOErrorEnum =
IOErrorEnumFailed
| IOErrorEnumNotFound
| IOErrorEnumExists
| IOErrorEnumIsDirectory
| IOErrorEnumNotDirectory
| IOErrorEnumNotEmpty
| IOErrorEnumNotRegularFile
| IOErrorEnumNotSymbolicLink
| IOErrorEnumNotMountableFile
| IOErrorEnumFilenameTooLong
| IOErrorEnumInvalidFilename
| IOErrorEnumTooManyLinks
| IOErrorEnumNoSpace
| IOErrorEnumInvalidArgument
| IOErrorEnumPermissionDenied
| IOErrorEnumNotSupported
| IOErrorEnumNotMounted
| IOErrorEnumAlreadyMounted
| IOErrorEnumClosed
| IOErrorEnumCancelled
| IOErrorEnumPending
| IOErrorEnumReadOnly
| IOErrorEnumCantCreateBackup
| IOErrorEnumWrongEtag
| IOErrorEnumTimedOut
| IOErrorEnumWouldRecurse
| IOErrorEnumBusy
| IOErrorEnumWouldBlock
| IOErrorEnumHostNotFound
| IOErrorEnumWouldMerge
| IOErrorEnumFailedHandled
| IOErrorEnumTooManyOpenFiles
| IOErrorEnumNotInitialized
| IOErrorEnumAddressInUse
| IOErrorEnumPartialInput
| IOErrorEnumInvalidData
| IOErrorEnumDbusError
| IOErrorEnumHostUnreachable
| IOErrorEnumNetworkUnreachable
| IOErrorEnumConnectionRefused
| IOErrorEnumProxyFailed
| IOErrorEnumProxyAuthFailed
| IOErrorEnumProxyNeedAuth
| IOErrorEnumProxyNotAllowed
| IOErrorEnumBrokenPipe
| IOErrorEnumConnectionClosed
| IOErrorEnumNotConnected
| IOErrorEnumMessageTooLarge
| AnotherIOErrorEnum Int
deriving (Show, Eq)
instance P.Enum IOErrorEnum where
fromEnum IOErrorEnumFailed = 0
fromEnum IOErrorEnumNotFound = 1
fromEnum IOErrorEnumExists = 2
fromEnum IOErrorEnumIsDirectory = 3
fromEnum IOErrorEnumNotDirectory = 4
fromEnum IOErrorEnumNotEmpty = 5
fromEnum IOErrorEnumNotRegularFile = 6
fromEnum IOErrorEnumNotSymbolicLink = 7
fromEnum IOErrorEnumNotMountableFile = 8
fromEnum IOErrorEnumFilenameTooLong = 9
fromEnum IOErrorEnumInvalidFilename = 10
fromEnum IOErrorEnumTooManyLinks = 11
fromEnum IOErrorEnumNoSpace = 12
fromEnum IOErrorEnumInvalidArgument = 13
fromEnum IOErrorEnumPermissionDenied = 14
fromEnum IOErrorEnumNotSupported = 15
fromEnum IOErrorEnumNotMounted = 16
fromEnum IOErrorEnumAlreadyMounted = 17
fromEnum IOErrorEnumClosed = 18
fromEnum IOErrorEnumCancelled = 19
fromEnum IOErrorEnumPending = 20
fromEnum IOErrorEnumReadOnly = 21
fromEnum IOErrorEnumCantCreateBackup = 22
fromEnum IOErrorEnumWrongEtag = 23
fromEnum IOErrorEnumTimedOut = 24
fromEnum IOErrorEnumWouldRecurse = 25
fromEnum IOErrorEnumBusy = 26
fromEnum IOErrorEnumWouldBlock = 27
fromEnum IOErrorEnumHostNotFound = 28
fromEnum IOErrorEnumWouldMerge = 29
fromEnum IOErrorEnumFailedHandled = 30
fromEnum IOErrorEnumTooManyOpenFiles = 31
fromEnum IOErrorEnumNotInitialized = 32
fromEnum IOErrorEnumAddressInUse = 33
fromEnum IOErrorEnumPartialInput = 34
fromEnum IOErrorEnumInvalidData = 35
fromEnum IOErrorEnumDbusError = 36
fromEnum IOErrorEnumHostUnreachable = 37
fromEnum IOErrorEnumNetworkUnreachable = 38
fromEnum IOErrorEnumConnectionRefused = 39
fromEnum IOErrorEnumProxyFailed = 40
fromEnum IOErrorEnumProxyAuthFailed = 41
fromEnum IOErrorEnumProxyNeedAuth = 42
fromEnum IOErrorEnumProxyNotAllowed = 43
fromEnum IOErrorEnumBrokenPipe = 44
fromEnum IOErrorEnumConnectionClosed = 44
fromEnum IOErrorEnumNotConnected = 45
fromEnum IOErrorEnumMessageTooLarge = 46
fromEnum (AnotherIOErrorEnum k) = k
toEnum 0 = IOErrorEnumFailed
toEnum 1 = IOErrorEnumNotFound
toEnum 2 = IOErrorEnumExists
toEnum 3 = IOErrorEnumIsDirectory
toEnum 4 = IOErrorEnumNotDirectory
toEnum 5 = IOErrorEnumNotEmpty
toEnum 6 = IOErrorEnumNotRegularFile
toEnum 7 = IOErrorEnumNotSymbolicLink
toEnum 8 = IOErrorEnumNotMountableFile
toEnum 9 = IOErrorEnumFilenameTooLong
toEnum 10 = IOErrorEnumInvalidFilename
toEnum 11 = IOErrorEnumTooManyLinks
toEnum 12 = IOErrorEnumNoSpace
toEnum 13 = IOErrorEnumInvalidArgument
toEnum 14 = IOErrorEnumPermissionDenied
toEnum 15 = IOErrorEnumNotSupported
toEnum 16 = IOErrorEnumNotMounted
toEnum 17 = IOErrorEnumAlreadyMounted
toEnum 18 = IOErrorEnumClosed
toEnum 19 = IOErrorEnumCancelled
toEnum 20 = IOErrorEnumPending
toEnum 21 = IOErrorEnumReadOnly
toEnum 22 = IOErrorEnumCantCreateBackup
toEnum 23 = IOErrorEnumWrongEtag
toEnum 24 = IOErrorEnumTimedOut
toEnum 25 = IOErrorEnumWouldRecurse
toEnum 26 = IOErrorEnumBusy
toEnum 27 = IOErrorEnumWouldBlock
toEnum 28 = IOErrorEnumHostNotFound
toEnum 29 = IOErrorEnumWouldMerge
toEnum 30 = IOErrorEnumFailedHandled
toEnum 31 = IOErrorEnumTooManyOpenFiles
toEnum 32 = IOErrorEnumNotInitialized
toEnum 33 = IOErrorEnumAddressInUse
toEnum 34 = IOErrorEnumPartialInput
toEnum 35 = IOErrorEnumInvalidData
toEnum 36 = IOErrorEnumDbusError
toEnum 37 = IOErrorEnumHostUnreachable
toEnum 38 = IOErrorEnumNetworkUnreachable
toEnum 39 = IOErrorEnumConnectionRefused
toEnum 40 = IOErrorEnumProxyFailed
toEnum 41 = IOErrorEnumProxyAuthFailed
toEnum 42 = IOErrorEnumProxyNeedAuth
toEnum 43 = IOErrorEnumProxyNotAllowed
toEnum 44 = IOErrorEnumBrokenPipe
toEnum 45 = IOErrorEnumNotConnected
toEnum 46 = IOErrorEnumMessageTooLarge
toEnum k = AnotherIOErrorEnum k
instance P.Ord IOErrorEnum where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance GErrorClass IOErrorEnum where
gerrorClassDomain _ = "g-io-error-quark"
catchIOErrorEnum ::
IO a ->
(IOErrorEnum -> GErrorMessage -> IO a) ->
IO a
catchIOErrorEnum = catchGErrorJustDomain
handleIOErrorEnum ::
(IOErrorEnum -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleIOErrorEnum = handleGErrorJustDomain
foreign import ccall "g_io_error_enum_get_type" c_g_io_error_enum_get_type ::
IO GType
instance BoxedEnum IOErrorEnum where
boxedEnumType _ = c_g_io_error_enum_get_type
data FilesystemPreviewType =
FilesystemPreviewTypeIfAlways
| FilesystemPreviewTypeIfLocal
| FilesystemPreviewTypeNever
| AnotherFilesystemPreviewType Int
deriving (Show, Eq)
instance P.Enum FilesystemPreviewType where
fromEnum FilesystemPreviewTypeIfAlways = 0
fromEnum FilesystemPreviewTypeIfLocal = 1
fromEnum FilesystemPreviewTypeNever = 2
fromEnum (AnotherFilesystemPreviewType k) = k
toEnum 0 = FilesystemPreviewTypeIfAlways
toEnum 1 = FilesystemPreviewTypeIfLocal
toEnum 2 = FilesystemPreviewTypeNever
toEnum k = AnotherFilesystemPreviewType k
instance P.Ord FilesystemPreviewType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_filesystem_preview_type_get_type" c_g_filesystem_preview_type_get_type ::
IO GType
instance BoxedEnum FilesystemPreviewType where
boxedEnumType _ = c_g_filesystem_preview_type_get_type
data FileType =
FileTypeUnknown
| FileTypeRegular
| FileTypeDirectory
| FileTypeSymbolicLink
| FileTypeSpecial
| FileTypeShortcut
| FileTypeMountable
| AnotherFileType Int
deriving (Show, Eq)
instance P.Enum FileType where
fromEnum FileTypeUnknown = 0
fromEnum FileTypeRegular = 1
fromEnum FileTypeDirectory = 2
fromEnum FileTypeSymbolicLink = 3
fromEnum FileTypeSpecial = 4
fromEnum FileTypeShortcut = 5
fromEnum FileTypeMountable = 6
fromEnum (AnotherFileType k) = k
toEnum 0 = FileTypeUnknown
toEnum 1 = FileTypeRegular
toEnum 2 = FileTypeDirectory
toEnum 3 = FileTypeSymbolicLink
toEnum 4 = FileTypeSpecial
toEnum 5 = FileTypeShortcut
toEnum 6 = FileTypeMountable
toEnum k = AnotherFileType k
instance P.Ord FileType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_file_type_get_type" c_g_file_type_get_type ::
IO GType
instance BoxedEnum FileType where
boxedEnumType _ = c_g_file_type_get_type
data FileMonitorEvent =
FileMonitorEventChanged
| FileMonitorEventChangesDoneHint
| FileMonitorEventDeleted
| FileMonitorEventCreated
| FileMonitorEventAttributeChanged
| FileMonitorEventPreUnmount
| FileMonitorEventUnmounted
| FileMonitorEventMoved
| FileMonitorEventRenamed
| FileMonitorEventMovedIn
| FileMonitorEventMovedOut
| AnotherFileMonitorEvent Int
deriving (Show, Eq)
instance P.Enum FileMonitorEvent where
fromEnum FileMonitorEventChanged = 0
fromEnum FileMonitorEventChangesDoneHint = 1
fromEnum FileMonitorEventDeleted = 2
fromEnum FileMonitorEventCreated = 3
fromEnum FileMonitorEventAttributeChanged = 4
fromEnum FileMonitorEventPreUnmount = 5
fromEnum FileMonitorEventUnmounted = 6
fromEnum FileMonitorEventMoved = 7
fromEnum FileMonitorEventRenamed = 8
fromEnum FileMonitorEventMovedIn = 9
fromEnum FileMonitorEventMovedOut = 10
fromEnum (AnotherFileMonitorEvent k) = k
toEnum 0 = FileMonitorEventChanged
toEnum 1 = FileMonitorEventChangesDoneHint
toEnum 2 = FileMonitorEventDeleted
toEnum 3 = FileMonitorEventCreated
toEnum 4 = FileMonitorEventAttributeChanged
toEnum 5 = FileMonitorEventPreUnmount
toEnum 6 = FileMonitorEventUnmounted
toEnum 7 = FileMonitorEventMoved
toEnum 8 = FileMonitorEventRenamed
toEnum 9 = FileMonitorEventMovedIn
toEnum 10 = FileMonitorEventMovedOut
toEnum k = AnotherFileMonitorEvent k
instance P.Ord FileMonitorEvent where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_file_monitor_event_get_type" c_g_file_monitor_event_get_type ::
IO GType
instance BoxedEnum FileMonitorEvent where
boxedEnumType _ = c_g_file_monitor_event_get_type
data FileAttributeType =
FileAttributeTypeInvalid
| FileAttributeTypeString
| FileAttributeTypeByteString
| FileAttributeTypeBoolean
| FileAttributeTypeUint32
| FileAttributeTypeInt32
| FileAttributeTypeUint64
| FileAttributeTypeInt64
| FileAttributeTypeObject
| FileAttributeTypeStringv
| AnotherFileAttributeType Int
deriving (Show, Eq)
instance P.Enum FileAttributeType where
fromEnum FileAttributeTypeInvalid = 0
fromEnum FileAttributeTypeString = 1
fromEnum FileAttributeTypeByteString = 2
fromEnum FileAttributeTypeBoolean = 3
fromEnum FileAttributeTypeUint32 = 4
fromEnum FileAttributeTypeInt32 = 5
fromEnum FileAttributeTypeUint64 = 6
fromEnum FileAttributeTypeInt64 = 7
fromEnum FileAttributeTypeObject = 8
fromEnum FileAttributeTypeStringv = 9
fromEnum (AnotherFileAttributeType k) = k
toEnum 0 = FileAttributeTypeInvalid
toEnum 1 = FileAttributeTypeString
toEnum 2 = FileAttributeTypeByteString
toEnum 3 = FileAttributeTypeBoolean
toEnum 4 = FileAttributeTypeUint32
toEnum 5 = FileAttributeTypeInt32
toEnum 6 = FileAttributeTypeUint64
toEnum 7 = FileAttributeTypeInt64
toEnum 8 = FileAttributeTypeObject
toEnum 9 = FileAttributeTypeStringv
toEnum k = AnotherFileAttributeType k
instance P.Ord FileAttributeType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_file_attribute_type_get_type" c_g_file_attribute_type_get_type ::
IO GType
instance BoxedEnum FileAttributeType where
boxedEnumType _ = c_g_file_attribute_type_get_type
data FileAttributeStatus =
FileAttributeStatusUnset
| FileAttributeStatusSet
| FileAttributeStatusErrorSetting
| AnotherFileAttributeStatus Int
deriving (Show, Eq)
instance P.Enum FileAttributeStatus where
fromEnum FileAttributeStatusUnset = 0
fromEnum FileAttributeStatusSet = 1
fromEnum FileAttributeStatusErrorSetting = 2
fromEnum (AnotherFileAttributeStatus k) = k
toEnum 0 = FileAttributeStatusUnset
toEnum 1 = FileAttributeStatusSet
toEnum 2 = FileAttributeStatusErrorSetting
toEnum k = AnotherFileAttributeStatus k
instance P.Ord FileAttributeStatus where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_file_attribute_status_get_type" c_g_file_attribute_status_get_type ::
IO GType
instance BoxedEnum FileAttributeStatus where
boxedEnumType _ = c_g_file_attribute_status_get_type
data EmblemOrigin =
EmblemOriginUnknown
| EmblemOriginDevice
| EmblemOriginLivemetadata
| EmblemOriginTag
| AnotherEmblemOrigin Int
deriving (Show, Eq)
instance P.Enum EmblemOrigin where
fromEnum EmblemOriginUnknown = 0
fromEnum EmblemOriginDevice = 1
fromEnum EmblemOriginLivemetadata = 2
fromEnum EmblemOriginTag = 3
fromEnum (AnotherEmblemOrigin k) = k
toEnum 0 = EmblemOriginUnknown
toEnum 1 = EmblemOriginDevice
toEnum 2 = EmblemOriginLivemetadata
toEnum 3 = EmblemOriginTag
toEnum k = AnotherEmblemOrigin k
instance P.Ord EmblemOrigin where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_emblem_origin_get_type" c_g_emblem_origin_get_type ::
IO GType
instance BoxedEnum EmblemOrigin where
boxedEnumType _ = c_g_emblem_origin_get_type
data DriveStartStopType =
DriveStartStopTypeUnknown
| DriveStartStopTypeShutdown
| DriveStartStopTypeNetwork
| DriveStartStopTypeMultidisk
| DriveStartStopTypePassword
| AnotherDriveStartStopType Int
deriving (Show, Eq)
instance P.Enum DriveStartStopType where
fromEnum DriveStartStopTypeUnknown = 0
fromEnum DriveStartStopTypeShutdown = 1
fromEnum DriveStartStopTypeNetwork = 2
fromEnum DriveStartStopTypeMultidisk = 3
fromEnum DriveStartStopTypePassword = 4
fromEnum (AnotherDriveStartStopType k) = k
toEnum 0 = DriveStartStopTypeUnknown
toEnum 1 = DriveStartStopTypeShutdown
toEnum 2 = DriveStartStopTypeNetwork
toEnum 3 = DriveStartStopTypeMultidisk
toEnum 4 = DriveStartStopTypePassword
toEnum k = AnotherDriveStartStopType k
instance P.Ord DriveStartStopType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_drive_start_stop_type_get_type" c_g_drive_start_stop_type_get_type ::
IO GType
instance BoxedEnum DriveStartStopType where
boxedEnumType _ = c_g_drive_start_stop_type_get_type
data DataStreamNewlineType =
DataStreamNewlineTypeLf
| DataStreamNewlineTypeCr
| DataStreamNewlineTypeCrLf
| DataStreamNewlineTypeAny
| AnotherDataStreamNewlineType Int
deriving (Show, Eq)
instance P.Enum DataStreamNewlineType where
fromEnum DataStreamNewlineTypeLf = 0
fromEnum DataStreamNewlineTypeCr = 1
fromEnum DataStreamNewlineTypeCrLf = 2
fromEnum DataStreamNewlineTypeAny = 3
fromEnum (AnotherDataStreamNewlineType k) = k
toEnum 0 = DataStreamNewlineTypeLf
toEnum 1 = DataStreamNewlineTypeCr
toEnum 2 = DataStreamNewlineTypeCrLf
toEnum 3 = DataStreamNewlineTypeAny
toEnum k = AnotherDataStreamNewlineType k
instance P.Ord DataStreamNewlineType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_data_stream_newline_type_get_type" c_g_data_stream_newline_type_get_type ::
IO GType
instance BoxedEnum DataStreamNewlineType where
boxedEnumType _ = c_g_data_stream_newline_type_get_type
data DataStreamByteOrder =
DataStreamByteOrderBigEndian
| DataStreamByteOrderLittleEndian
| DataStreamByteOrderHostEndian
| AnotherDataStreamByteOrder Int
deriving (Show, Eq)
instance P.Enum DataStreamByteOrder where
fromEnum DataStreamByteOrderBigEndian = 0
fromEnum DataStreamByteOrderLittleEndian = 1
fromEnum DataStreamByteOrderHostEndian = 2
fromEnum (AnotherDataStreamByteOrder k) = k
toEnum 0 = DataStreamByteOrderBigEndian
toEnum 1 = DataStreamByteOrderLittleEndian
toEnum 2 = DataStreamByteOrderHostEndian
toEnum k = AnotherDataStreamByteOrder k
instance P.Ord DataStreamByteOrder where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_data_stream_byte_order_get_type" c_g_data_stream_byte_order_get_type ::
IO GType
instance BoxedEnum DataStreamByteOrder where
boxedEnumType _ = c_g_data_stream_byte_order_get_type
data DBusMessageType =
DBusMessageTypeInvalid
| DBusMessageTypeMethodCall
| DBusMessageTypeMethodReturn
| DBusMessageTypeError
| DBusMessageTypeSignal
| AnotherDBusMessageType Int
deriving (Show, Eq)
instance P.Enum DBusMessageType where
fromEnum DBusMessageTypeInvalid = 0
fromEnum DBusMessageTypeMethodCall = 1
fromEnum DBusMessageTypeMethodReturn = 2
fromEnum DBusMessageTypeError = 3
fromEnum DBusMessageTypeSignal = 4
fromEnum (AnotherDBusMessageType k) = k
toEnum 0 = DBusMessageTypeInvalid
toEnum 1 = DBusMessageTypeMethodCall
toEnum 2 = DBusMessageTypeMethodReturn
toEnum 3 = DBusMessageTypeError
toEnum 4 = DBusMessageTypeSignal
toEnum k = AnotherDBusMessageType k
instance P.Ord DBusMessageType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_dbus_message_type_get_type" c_g_dbus_message_type_get_type ::
IO GType
instance BoxedEnum DBusMessageType where
boxedEnumType _ = c_g_dbus_message_type_get_type
data DBusMessageHeaderField =
DBusMessageHeaderFieldInvalid
| DBusMessageHeaderFieldPath
| DBusMessageHeaderFieldInterface
| DBusMessageHeaderFieldMember
| DBusMessageHeaderFieldErrorName
| DBusMessageHeaderFieldReplySerial
| DBusMessageHeaderFieldDestination
| DBusMessageHeaderFieldSender
| DBusMessageHeaderFieldSignature
| DBusMessageHeaderFieldNumUnixFds
| AnotherDBusMessageHeaderField Int
deriving (Show, Eq)
instance P.Enum DBusMessageHeaderField where
fromEnum DBusMessageHeaderFieldInvalid = 0
fromEnum DBusMessageHeaderFieldPath = 1
fromEnum DBusMessageHeaderFieldInterface = 2
fromEnum DBusMessageHeaderFieldMember = 3
fromEnum DBusMessageHeaderFieldErrorName = 4
fromEnum DBusMessageHeaderFieldReplySerial = 5
fromEnum DBusMessageHeaderFieldDestination = 6
fromEnum DBusMessageHeaderFieldSender = 7
fromEnum DBusMessageHeaderFieldSignature = 8
fromEnum DBusMessageHeaderFieldNumUnixFds = 9
fromEnum (AnotherDBusMessageHeaderField k) = k
toEnum 0 = DBusMessageHeaderFieldInvalid
toEnum 1 = DBusMessageHeaderFieldPath
toEnum 2 = DBusMessageHeaderFieldInterface
toEnum 3 = DBusMessageHeaderFieldMember
toEnum 4 = DBusMessageHeaderFieldErrorName
toEnum 5 = DBusMessageHeaderFieldReplySerial
toEnum 6 = DBusMessageHeaderFieldDestination
toEnum 7 = DBusMessageHeaderFieldSender
toEnum 8 = DBusMessageHeaderFieldSignature
toEnum 9 = DBusMessageHeaderFieldNumUnixFds
toEnum k = AnotherDBusMessageHeaderField k
instance P.Ord DBusMessageHeaderField where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_dbus_message_header_field_get_type" c_g_dbus_message_header_field_get_type ::
IO GType
instance BoxedEnum DBusMessageHeaderField where
boxedEnumType _ = c_g_dbus_message_header_field_get_type
data DBusMessageByteOrder =
DBusMessageByteOrderBigEndian
| DBusMessageByteOrderLittleEndian
| AnotherDBusMessageByteOrder Int
deriving (Show, Eq)
instance P.Enum DBusMessageByteOrder where
fromEnum DBusMessageByteOrderBigEndian = 66
fromEnum DBusMessageByteOrderLittleEndian = 108
fromEnum (AnotherDBusMessageByteOrder k) = k
toEnum 66 = DBusMessageByteOrderBigEndian
toEnum 108 = DBusMessageByteOrderLittleEndian
toEnum k = AnotherDBusMessageByteOrder k
instance P.Ord DBusMessageByteOrder where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_dbus_message_byte_order_get_type" c_g_dbus_message_byte_order_get_type ::
IO GType
instance BoxedEnum DBusMessageByteOrder where
boxedEnumType _ = c_g_dbus_message_byte_order_get_type
data DBusError =
DBusErrorFailed
| DBusErrorNoMemory
| DBusErrorServiceUnknown
| DBusErrorNameHasNoOwner
| DBusErrorNoReply
| DBusErrorIoError
| DBusErrorBadAddress
| DBusErrorNotSupported
| DBusErrorLimitsExceeded
| DBusErrorAccessDenied
| DBusErrorAuthFailed
| DBusErrorNoServer
| DBusErrorTimeout
| DBusErrorNoNetwork
| DBusErrorAddressInUse
| DBusErrorDisconnected
| DBusErrorInvalidArgs
| DBusErrorFileNotFound
| DBusErrorFileExists
| DBusErrorUnknownMethod
| DBusErrorTimedOut
| DBusErrorMatchRuleNotFound
| DBusErrorMatchRuleInvalid
| DBusErrorSpawnExecFailed
| DBusErrorSpawnForkFailed
| DBusErrorSpawnChildExited
| DBusErrorSpawnChildSignaled
| DBusErrorSpawnFailed
| DBusErrorSpawnSetupFailed
| DBusErrorSpawnConfigInvalid
| DBusErrorSpawnServiceInvalid
| DBusErrorSpawnServiceNotFound
| DBusErrorSpawnPermissionsInvalid
| DBusErrorSpawnFileInvalid
| DBusErrorSpawnNoMemory
| DBusErrorUnixProcessIdUnknown
| DBusErrorInvalidSignature
| DBusErrorInvalidFileContent
| DBusErrorSelinuxSecurityContextUnknown
| DBusErrorAdtAuditDataUnknown
| DBusErrorObjectPathInUse
| DBusErrorUnknownObject
| DBusErrorUnknownInterface
| DBusErrorUnknownProperty
| DBusErrorPropertyReadOnly
| AnotherDBusError Int
deriving (Show, Eq)
instance P.Enum DBusError where
fromEnum DBusErrorFailed = 0
fromEnum DBusErrorNoMemory = 1
fromEnum DBusErrorServiceUnknown = 2
fromEnum DBusErrorNameHasNoOwner = 3
fromEnum DBusErrorNoReply = 4
fromEnum DBusErrorIoError = 5
fromEnum DBusErrorBadAddress = 6
fromEnum DBusErrorNotSupported = 7
fromEnum DBusErrorLimitsExceeded = 8
fromEnum DBusErrorAccessDenied = 9
fromEnum DBusErrorAuthFailed = 10
fromEnum DBusErrorNoServer = 11
fromEnum DBusErrorTimeout = 12
fromEnum DBusErrorNoNetwork = 13
fromEnum DBusErrorAddressInUse = 14
fromEnum DBusErrorDisconnected = 15
fromEnum DBusErrorInvalidArgs = 16
fromEnum DBusErrorFileNotFound = 17
fromEnum DBusErrorFileExists = 18
fromEnum DBusErrorUnknownMethod = 19
fromEnum DBusErrorTimedOut = 20
fromEnum DBusErrorMatchRuleNotFound = 21
fromEnum DBusErrorMatchRuleInvalid = 22
fromEnum DBusErrorSpawnExecFailed = 23
fromEnum DBusErrorSpawnForkFailed = 24
fromEnum DBusErrorSpawnChildExited = 25
fromEnum DBusErrorSpawnChildSignaled = 26
fromEnum DBusErrorSpawnFailed = 27
fromEnum DBusErrorSpawnSetupFailed = 28
fromEnum DBusErrorSpawnConfigInvalid = 29
fromEnum DBusErrorSpawnServiceInvalid = 30
fromEnum DBusErrorSpawnServiceNotFound = 31
fromEnum DBusErrorSpawnPermissionsInvalid = 32
fromEnum DBusErrorSpawnFileInvalid = 33
fromEnum DBusErrorSpawnNoMemory = 34
fromEnum DBusErrorUnixProcessIdUnknown = 35
fromEnum DBusErrorInvalidSignature = 36
fromEnum DBusErrorInvalidFileContent = 37
fromEnum DBusErrorSelinuxSecurityContextUnknown = 38
fromEnum DBusErrorAdtAuditDataUnknown = 39
fromEnum DBusErrorObjectPathInUse = 40
fromEnum DBusErrorUnknownObject = 41
fromEnum DBusErrorUnknownInterface = 42
fromEnum DBusErrorUnknownProperty = 43
fromEnum DBusErrorPropertyReadOnly = 44
fromEnum (AnotherDBusError k) = k
toEnum 0 = DBusErrorFailed
toEnum 1 = DBusErrorNoMemory
toEnum 2 = DBusErrorServiceUnknown
toEnum 3 = DBusErrorNameHasNoOwner
toEnum 4 = DBusErrorNoReply
toEnum 5 = DBusErrorIoError
toEnum 6 = DBusErrorBadAddress
toEnum 7 = DBusErrorNotSupported
toEnum 8 = DBusErrorLimitsExceeded
toEnum 9 = DBusErrorAccessDenied
toEnum 10 = DBusErrorAuthFailed
toEnum 11 = DBusErrorNoServer
toEnum 12 = DBusErrorTimeout
toEnum 13 = DBusErrorNoNetwork
toEnum 14 = DBusErrorAddressInUse
toEnum 15 = DBusErrorDisconnected
toEnum 16 = DBusErrorInvalidArgs
toEnum 17 = DBusErrorFileNotFound
toEnum 18 = DBusErrorFileExists
toEnum 19 = DBusErrorUnknownMethod
toEnum 20 = DBusErrorTimedOut
toEnum 21 = DBusErrorMatchRuleNotFound
toEnum 22 = DBusErrorMatchRuleInvalid
toEnum 23 = DBusErrorSpawnExecFailed
toEnum 24 = DBusErrorSpawnForkFailed
toEnum 25 = DBusErrorSpawnChildExited
toEnum 26 = DBusErrorSpawnChildSignaled
toEnum 27 = DBusErrorSpawnFailed
toEnum 28 = DBusErrorSpawnSetupFailed
toEnum 29 = DBusErrorSpawnConfigInvalid
toEnum 30 = DBusErrorSpawnServiceInvalid
toEnum 31 = DBusErrorSpawnServiceNotFound
toEnum 32 = DBusErrorSpawnPermissionsInvalid
toEnum 33 = DBusErrorSpawnFileInvalid
toEnum 34 = DBusErrorSpawnNoMemory
toEnum 35 = DBusErrorUnixProcessIdUnknown
toEnum 36 = DBusErrorInvalidSignature
toEnum 37 = DBusErrorInvalidFileContent
toEnum 38 = DBusErrorSelinuxSecurityContextUnknown
toEnum 39 = DBusErrorAdtAuditDataUnknown
toEnum 40 = DBusErrorObjectPathInUse
toEnum 41 = DBusErrorUnknownObject
toEnum 42 = DBusErrorUnknownInterface
toEnum 43 = DBusErrorUnknownProperty
toEnum 44 = DBusErrorPropertyReadOnly
toEnum k = AnotherDBusError k
instance P.Ord DBusError where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance GErrorClass DBusError where
gerrorClassDomain _ = "g-dbus-error-quark"
catchDBusError ::
IO a ->
(DBusError -> GErrorMessage -> IO a) ->
IO a
catchDBusError = catchGErrorJustDomain
handleDBusError ::
(DBusError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleDBusError = handleGErrorJustDomain
foreign import ccall "g_dbus_error_get_type" c_g_dbus_error_get_type ::
IO GType
instance BoxedEnum DBusError where
boxedEnumType _ = c_g_dbus_error_get_type
data CredentialsType =
CredentialsTypeInvalid
| CredentialsTypeLinuxUcred
| CredentialsTypeFreebsdCmsgcred
| CredentialsTypeOpenbsdSockpeercred
| CredentialsTypeSolarisUcred
| CredentialsTypeNetbsdUnpcbid
| AnotherCredentialsType Int
deriving (Show, Eq)
instance P.Enum CredentialsType where
fromEnum CredentialsTypeInvalid = 0
fromEnum CredentialsTypeLinuxUcred = 1
fromEnum CredentialsTypeFreebsdCmsgcred = 2
fromEnum CredentialsTypeOpenbsdSockpeercred = 3
fromEnum CredentialsTypeSolarisUcred = 4
fromEnum CredentialsTypeNetbsdUnpcbid = 5
fromEnum (AnotherCredentialsType k) = k
toEnum 0 = CredentialsTypeInvalid
toEnum 1 = CredentialsTypeLinuxUcred
toEnum 2 = CredentialsTypeFreebsdCmsgcred
toEnum 3 = CredentialsTypeOpenbsdSockpeercred
toEnum 4 = CredentialsTypeSolarisUcred
toEnum 5 = CredentialsTypeNetbsdUnpcbid
toEnum k = AnotherCredentialsType k
instance P.Ord CredentialsType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_credentials_type_get_type" c_g_credentials_type_get_type ::
IO GType
instance BoxedEnum CredentialsType where
boxedEnumType _ = c_g_credentials_type_get_type
data ConverterResult =
ConverterResultError
| ConverterResultConverted
| ConverterResultFinished
| ConverterResultFlushed
| AnotherConverterResult Int
deriving (Show, Eq)
instance P.Enum ConverterResult where
fromEnum ConverterResultError = 0
fromEnum ConverterResultConverted = 1
fromEnum ConverterResultFinished = 2
fromEnum ConverterResultFlushed = 3
fromEnum (AnotherConverterResult k) = k
toEnum 0 = ConverterResultError
toEnum 1 = ConverterResultConverted
toEnum 2 = ConverterResultFinished
toEnum 3 = ConverterResultFlushed
toEnum k = AnotherConverterResult k
instance P.Ord ConverterResult where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_converter_result_get_type" c_g_converter_result_get_type ::
IO GType
instance BoxedEnum ConverterResult where
boxedEnumType _ = c_g_converter_result_get_type
data BusType =
BusTypeStarter
| BusTypeNone
| BusTypeSystem
| BusTypeSession
| AnotherBusType Int
deriving (Show, Eq)
instance P.Enum BusType where
fromEnum BusTypeStarter = -1
fromEnum BusTypeNone = 0
fromEnum BusTypeSystem = 1
fromEnum BusTypeSession = 2
fromEnum (AnotherBusType k) = k
toEnum -1 = BusTypeStarter
toEnum 0 = BusTypeNone
toEnum 1 = BusTypeSystem
toEnum 2 = BusTypeSession
toEnum k = AnotherBusType k
instance P.Ord BusType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "g_bus_type_get_type" c_g_bus_type_get_type ::
IO GType
instance BoxedEnum BusType where
boxedEnumType _ = c_g_bus_type_get_type