#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GLib.Enums
(
BookmarkFileError(..) ,
catchBookmarkFileError ,
handleBookmarkFileError ,
ChecksumType(..) ,
ConvertError(..) ,
catchConvertError ,
handleConvertError ,
DateDMY(..) ,
DateMonth(..) ,
DateWeekday(..) ,
ErrorType(..) ,
FileError(..) ,
catchFileError ,
handleFileError ,
IOChannelError(..) ,
catchIOChannelError ,
handleIOChannelError ,
IOError(..) ,
IOStatus(..) ,
KeyFileError(..) ,
catchKeyFileError ,
handleKeyFileError ,
LogWriterOutput(..) ,
MarkupError(..) ,
catchMarkupError ,
handleMarkupError ,
NormalizeMode(..) ,
NumberParserError(..) ,
catchNumberParserError ,
handleNumberParserError ,
OnceStatus(..) ,
OptionArg(..) ,
OptionError(..) ,
catchOptionError ,
handleOptionError ,
RegexError(..) ,
catchRegexError ,
handleRegexError ,
SeekType(..) ,
ShellError(..) ,
catchShellError ,
handleShellError ,
SliceConfig(..) ,
SpawnError(..) ,
catchSpawnError ,
handleSpawnError ,
TestFileType(..) ,
TestLogType(..) ,
TestResult(..) ,
ThreadError(..) ,
catchThreadError ,
handleThreadError ,
TimeType(..) ,
TokenType(..) ,
TraverseType(..) ,
UnicodeBreakType(..) ,
UnicodeScript(..) ,
UnicodeType(..) ,
UserDirectory(..) ,
VariantClass(..) ,
VariantParseError(..) ,
catchVariantParseError ,
handleVariantParseError ,
) 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 VariantParseError =
VariantParseErrorFailed
| VariantParseErrorBasicTypeExpected
| VariantParseErrorCannotInferType
| VariantParseErrorDefiniteTypeExpected
| VariantParseErrorInputNotAtEnd
| VariantParseErrorInvalidCharacter
| VariantParseErrorInvalidFormatString
| VariantParseErrorInvalidObjectPath
| VariantParseErrorInvalidSignature
| VariantParseErrorInvalidTypeString
| VariantParseErrorNoCommonType
| VariantParseErrorNumberOutOfRange
| VariantParseErrorNumberTooBig
| VariantParseErrorTypeError
| VariantParseErrorUnexpectedToken
| VariantParseErrorUnknownKeyword
| VariantParseErrorUnterminatedStringConstant
| VariantParseErrorValueExpected
| AnotherVariantParseError Int
deriving (Show, Eq)
instance P.Enum VariantParseError where
fromEnum VariantParseErrorFailed = 0
fromEnum VariantParseErrorBasicTypeExpected = 1
fromEnum VariantParseErrorCannotInferType = 2
fromEnum VariantParseErrorDefiniteTypeExpected = 3
fromEnum VariantParseErrorInputNotAtEnd = 4
fromEnum VariantParseErrorInvalidCharacter = 5
fromEnum VariantParseErrorInvalidFormatString = 6
fromEnum VariantParseErrorInvalidObjectPath = 7
fromEnum VariantParseErrorInvalidSignature = 8
fromEnum VariantParseErrorInvalidTypeString = 9
fromEnum VariantParseErrorNoCommonType = 10
fromEnum VariantParseErrorNumberOutOfRange = 11
fromEnum VariantParseErrorNumberTooBig = 12
fromEnum VariantParseErrorTypeError = 13
fromEnum VariantParseErrorUnexpectedToken = 14
fromEnum VariantParseErrorUnknownKeyword = 15
fromEnum VariantParseErrorUnterminatedStringConstant = 16
fromEnum VariantParseErrorValueExpected = 17
fromEnum (AnotherVariantParseError k) = k
toEnum 0 = VariantParseErrorFailed
toEnum 1 = VariantParseErrorBasicTypeExpected
toEnum 2 = VariantParseErrorCannotInferType
toEnum 3 = VariantParseErrorDefiniteTypeExpected
toEnum 4 = VariantParseErrorInputNotAtEnd
toEnum 5 = VariantParseErrorInvalidCharacter
toEnum 6 = VariantParseErrorInvalidFormatString
toEnum 7 = VariantParseErrorInvalidObjectPath
toEnum 8 = VariantParseErrorInvalidSignature
toEnum 9 = VariantParseErrorInvalidTypeString
toEnum 10 = VariantParseErrorNoCommonType
toEnum 11 = VariantParseErrorNumberOutOfRange
toEnum 12 = VariantParseErrorNumberTooBig
toEnum 13 = VariantParseErrorTypeError
toEnum 14 = VariantParseErrorUnexpectedToken
toEnum 15 = VariantParseErrorUnknownKeyword
toEnum 16 = VariantParseErrorUnterminatedStringConstant
toEnum 17 = VariantParseErrorValueExpected
toEnum k = AnotherVariantParseError k
instance P.Ord VariantParseError where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance GErrorClass VariantParseError where
gerrorClassDomain _ = "g-variant-parse-error-quark"
catchVariantParseError ::
IO a ->
(VariantParseError -> GErrorMessage -> IO a) ->
IO a
catchVariantParseError = catchGErrorJustDomain
handleVariantParseError ::
(VariantParseError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleVariantParseError = handleGErrorJustDomain
data VariantClass =
VariantClassBoolean
| VariantClassByte
| VariantClassInt16
| VariantClassUint16
| VariantClassInt32
| VariantClassUint32
| VariantClassInt64
| VariantClassUint64
| VariantClassHandle
| VariantClassDouble
| VariantClassString
| VariantClassObjectPath
| VariantClassSignature
| VariantClassVariant
| VariantClassMaybe
| VariantClassArray
| VariantClassTuple
| VariantClassDictEntry
| AnotherVariantClass Int
deriving (Show, Eq)
instance P.Enum VariantClass where
fromEnum VariantClassBoolean = 98
fromEnum VariantClassByte = 121
fromEnum VariantClassInt16 = 110
fromEnum VariantClassUint16 = 113
fromEnum VariantClassInt32 = 105
fromEnum VariantClassUint32 = 117
fromEnum VariantClassInt64 = 120
fromEnum VariantClassUint64 = 116
fromEnum VariantClassHandle = 104
fromEnum VariantClassDouble = 100
fromEnum VariantClassString = 115
fromEnum VariantClassObjectPath = 111
fromEnum VariantClassSignature = 103
fromEnum VariantClassVariant = 118
fromEnum VariantClassMaybe = 109
fromEnum VariantClassArray = 97
fromEnum VariantClassTuple = 40
fromEnum VariantClassDictEntry = 123
fromEnum (AnotherVariantClass k) = k
toEnum 98 = VariantClassBoolean
toEnum 121 = VariantClassByte
toEnum 110 = VariantClassInt16
toEnum 113 = VariantClassUint16
toEnum 105 = VariantClassInt32
toEnum 117 = VariantClassUint32
toEnum 120 = VariantClassInt64
toEnum 116 = VariantClassUint64
toEnum 104 = VariantClassHandle
toEnum 100 = VariantClassDouble
toEnum 115 = VariantClassString
toEnum 111 = VariantClassObjectPath
toEnum 103 = VariantClassSignature
toEnum 118 = VariantClassVariant
toEnum 109 = VariantClassMaybe
toEnum 97 = VariantClassArray
toEnum 40 = VariantClassTuple
toEnum 123 = VariantClassDictEntry
toEnum k = AnotherVariantClass k
instance P.Ord VariantClass where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data UserDirectory =
UserDirectoryDirectoryDesktop
| UserDirectoryDirectoryDocuments
| UserDirectoryDirectoryDownload
| UserDirectoryDirectoryMusic
| UserDirectoryDirectoryPictures
| UserDirectoryDirectoryPublicShare
| UserDirectoryDirectoryTemplates
| UserDirectoryDirectoryVideos
| UserDirectoryNDirectories
| AnotherUserDirectory Int
deriving (Show, Eq)
instance P.Enum UserDirectory where
fromEnum UserDirectoryDirectoryDesktop = 0
fromEnum UserDirectoryDirectoryDocuments = 1
fromEnum UserDirectoryDirectoryDownload = 2
fromEnum UserDirectoryDirectoryMusic = 3
fromEnum UserDirectoryDirectoryPictures = 4
fromEnum UserDirectoryDirectoryPublicShare = 5
fromEnum UserDirectoryDirectoryTemplates = 6
fromEnum UserDirectoryDirectoryVideos = 7
fromEnum UserDirectoryNDirectories = 8
fromEnum (AnotherUserDirectory k) = k
toEnum 0 = UserDirectoryDirectoryDesktop
toEnum 1 = UserDirectoryDirectoryDocuments
toEnum 2 = UserDirectoryDirectoryDownload
toEnum 3 = UserDirectoryDirectoryMusic
toEnum 4 = UserDirectoryDirectoryPictures
toEnum 5 = UserDirectoryDirectoryPublicShare
toEnum 6 = UserDirectoryDirectoryTemplates
toEnum 7 = UserDirectoryDirectoryVideos
toEnum 8 = UserDirectoryNDirectories
toEnum k = AnotherUserDirectory k
instance P.Ord UserDirectory where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data UnicodeType =
UnicodeTypeControl
| UnicodeTypeFormat
| UnicodeTypeUnassigned
| UnicodeTypePrivateUse
| UnicodeTypeSurrogate
| UnicodeTypeLowercaseLetter
| UnicodeTypeModifierLetter
| UnicodeTypeOtherLetter
| UnicodeTypeTitlecaseLetter
| UnicodeTypeUppercaseLetter
| UnicodeTypeSpacingMark
| UnicodeTypeEnclosingMark
| UnicodeTypeNonSpacingMark
| UnicodeTypeDecimalNumber
| UnicodeTypeLetterNumber
| UnicodeTypeOtherNumber
| UnicodeTypeConnectPunctuation
| UnicodeTypeDashPunctuation
| UnicodeTypeClosePunctuation
| UnicodeTypeFinalPunctuation
| UnicodeTypeInitialPunctuation
| UnicodeTypeOtherPunctuation
| UnicodeTypeOpenPunctuation
| UnicodeTypeCurrencySymbol
| UnicodeTypeModifierSymbol
| UnicodeTypeMathSymbol
| UnicodeTypeOtherSymbol
| UnicodeTypeLineSeparator
| UnicodeTypeParagraphSeparator
| UnicodeTypeSpaceSeparator
| AnotherUnicodeType Int
deriving (Show, Eq)
instance P.Enum UnicodeType where
fromEnum UnicodeTypeControl = 0
fromEnum UnicodeTypeFormat = 1
fromEnum UnicodeTypeUnassigned = 2
fromEnum UnicodeTypePrivateUse = 3
fromEnum UnicodeTypeSurrogate = 4
fromEnum UnicodeTypeLowercaseLetter = 5
fromEnum UnicodeTypeModifierLetter = 6
fromEnum UnicodeTypeOtherLetter = 7
fromEnum UnicodeTypeTitlecaseLetter = 8
fromEnum UnicodeTypeUppercaseLetter = 9
fromEnum UnicodeTypeSpacingMark = 10
fromEnum UnicodeTypeEnclosingMark = 11
fromEnum UnicodeTypeNonSpacingMark = 12
fromEnum UnicodeTypeDecimalNumber = 13
fromEnum UnicodeTypeLetterNumber = 14
fromEnum UnicodeTypeOtherNumber = 15
fromEnum UnicodeTypeConnectPunctuation = 16
fromEnum UnicodeTypeDashPunctuation = 17
fromEnum UnicodeTypeClosePunctuation = 18
fromEnum UnicodeTypeFinalPunctuation = 19
fromEnum UnicodeTypeInitialPunctuation = 20
fromEnum UnicodeTypeOtherPunctuation = 21
fromEnum UnicodeTypeOpenPunctuation = 22
fromEnum UnicodeTypeCurrencySymbol = 23
fromEnum UnicodeTypeModifierSymbol = 24
fromEnum UnicodeTypeMathSymbol = 25
fromEnum UnicodeTypeOtherSymbol = 26
fromEnum UnicodeTypeLineSeparator = 27
fromEnum UnicodeTypeParagraphSeparator = 28
fromEnum UnicodeTypeSpaceSeparator = 29
fromEnum (AnotherUnicodeType k) = k
toEnum 0 = UnicodeTypeControl
toEnum 1 = UnicodeTypeFormat
toEnum 2 = UnicodeTypeUnassigned
toEnum 3 = UnicodeTypePrivateUse
toEnum 4 = UnicodeTypeSurrogate
toEnum 5 = UnicodeTypeLowercaseLetter
toEnum 6 = UnicodeTypeModifierLetter
toEnum 7 = UnicodeTypeOtherLetter
toEnum 8 = UnicodeTypeTitlecaseLetter
toEnum 9 = UnicodeTypeUppercaseLetter
toEnum 10 = UnicodeTypeSpacingMark
toEnum 11 = UnicodeTypeEnclosingMark
toEnum 12 = UnicodeTypeNonSpacingMark
toEnum 13 = UnicodeTypeDecimalNumber
toEnum 14 = UnicodeTypeLetterNumber
toEnum 15 = UnicodeTypeOtherNumber
toEnum 16 = UnicodeTypeConnectPunctuation
toEnum 17 = UnicodeTypeDashPunctuation
toEnum 18 = UnicodeTypeClosePunctuation
toEnum 19 = UnicodeTypeFinalPunctuation
toEnum 20 = UnicodeTypeInitialPunctuation
toEnum 21 = UnicodeTypeOtherPunctuation
toEnum 22 = UnicodeTypeOpenPunctuation
toEnum 23 = UnicodeTypeCurrencySymbol
toEnum 24 = UnicodeTypeModifierSymbol
toEnum 25 = UnicodeTypeMathSymbol
toEnum 26 = UnicodeTypeOtherSymbol
toEnum 27 = UnicodeTypeLineSeparator
toEnum 28 = UnicodeTypeParagraphSeparator
toEnum 29 = UnicodeTypeSpaceSeparator
toEnum k = AnotherUnicodeType k
instance P.Ord UnicodeType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data UnicodeScript =
UnicodeScriptInvalidCode
| UnicodeScriptCommon
| UnicodeScriptInherited
| UnicodeScriptArabic
| UnicodeScriptArmenian
| UnicodeScriptBengali
| UnicodeScriptBopomofo
| UnicodeScriptCherokee
| UnicodeScriptCoptic
| UnicodeScriptCyrillic
| UnicodeScriptDeseret
| UnicodeScriptDevanagari
| UnicodeScriptEthiopic
| UnicodeScriptGeorgian
| UnicodeScriptGothic
| UnicodeScriptGreek
| UnicodeScriptGujarati
| UnicodeScriptGurmukhi
| UnicodeScriptHan
| UnicodeScriptHangul
| UnicodeScriptHebrew
| UnicodeScriptHiragana
| UnicodeScriptKannada
| UnicodeScriptKatakana
| UnicodeScriptKhmer
| UnicodeScriptLao
| UnicodeScriptLatin
| UnicodeScriptMalayalam
| UnicodeScriptMongolian
| UnicodeScriptMyanmar
| UnicodeScriptOgham
| UnicodeScriptOldItalic
| UnicodeScriptOriya
| UnicodeScriptRunic
| UnicodeScriptSinhala
| UnicodeScriptSyriac
| UnicodeScriptTamil
| UnicodeScriptTelugu
| UnicodeScriptThaana
| UnicodeScriptThai
| UnicodeScriptTibetan
| UnicodeScriptCanadianAboriginal
| UnicodeScriptYi
| UnicodeScriptTagalog
| UnicodeScriptHanunoo
| UnicodeScriptBuhid
| UnicodeScriptTagbanwa
| UnicodeScriptBraille
| UnicodeScriptCypriot
| UnicodeScriptLimbu
| UnicodeScriptOsmanya
| UnicodeScriptShavian
| UnicodeScriptLinearB
| UnicodeScriptTaiLe
| UnicodeScriptUgaritic
| UnicodeScriptNewTaiLue
| UnicodeScriptBuginese
| UnicodeScriptGlagolitic
| UnicodeScriptTifinagh
| UnicodeScriptSylotiNagri
| UnicodeScriptOldPersian
| UnicodeScriptKharoshthi
| UnicodeScriptUnknown
| UnicodeScriptBalinese
| UnicodeScriptCuneiform
| UnicodeScriptPhoenician
| UnicodeScriptPhagsPa
| UnicodeScriptNko
| UnicodeScriptKayahLi
| UnicodeScriptLepcha
| UnicodeScriptRejang
| UnicodeScriptSundanese
| UnicodeScriptSaurashtra
| UnicodeScriptCham
| UnicodeScriptOlChiki
| UnicodeScriptVai
| UnicodeScriptCarian
| UnicodeScriptLycian
| UnicodeScriptLydian
| UnicodeScriptAvestan
| UnicodeScriptBamum
| UnicodeScriptEgyptianHieroglyphs
| UnicodeScriptImperialAramaic
| UnicodeScriptInscriptionalPahlavi
| UnicodeScriptInscriptionalParthian
| UnicodeScriptJavanese
| UnicodeScriptKaithi
| UnicodeScriptLisu
| UnicodeScriptMeeteiMayek
| UnicodeScriptOldSouthArabian
| UnicodeScriptOldTurkic
| UnicodeScriptSamaritan
| UnicodeScriptTaiTham
| UnicodeScriptTaiViet
| UnicodeScriptBatak
| UnicodeScriptBrahmi
| UnicodeScriptMandaic
| UnicodeScriptChakma
| UnicodeScriptMeroiticCursive
| UnicodeScriptMeroiticHieroglyphs
| UnicodeScriptMiao
| UnicodeScriptSharada
| UnicodeScriptSoraSompeng
| UnicodeScriptTakri
| UnicodeScriptBassaVah
| UnicodeScriptCaucasianAlbanian
| UnicodeScriptDuployan
| UnicodeScriptElbasan
| UnicodeScriptGrantha
| UnicodeScriptKhojki
| UnicodeScriptKhudawadi
| UnicodeScriptLinearA
| UnicodeScriptMahajani
| UnicodeScriptManichaean
| UnicodeScriptMendeKikakui
| UnicodeScriptModi
| UnicodeScriptMro
| UnicodeScriptNabataean
| UnicodeScriptOldNorthArabian
| UnicodeScriptOldPermic
| UnicodeScriptPahawhHmong
| UnicodeScriptPalmyrene
| UnicodeScriptPauCinHau
| UnicodeScriptPsalterPahlavi
| UnicodeScriptSiddham
| UnicodeScriptTirhuta
| UnicodeScriptWarangCiti
| UnicodeScriptAhom
| UnicodeScriptAnatolianHieroglyphs
| UnicodeScriptHatran
| UnicodeScriptMultani
| UnicodeScriptOldHungarian
| UnicodeScriptSignwriting
| UnicodeScriptAdlam
| UnicodeScriptBhaiksuki
| UnicodeScriptMarchen
| UnicodeScriptNewa
| UnicodeScriptOsage
| UnicodeScriptTangut
| UnicodeScriptMasaramGondi
| UnicodeScriptNushu
| UnicodeScriptSoyombo
| UnicodeScriptZanabazarSquare
| UnicodeScriptDogra
| UnicodeScriptGunjalaGondi
| UnicodeScriptHanifiRohingya
| UnicodeScriptMakasar
| UnicodeScriptMedefaidrin
| UnicodeScriptOldSogdian
| UnicodeScriptSogdian
| AnotherUnicodeScript Int
deriving (Show, Eq)
instance P.Enum UnicodeScript where
fromEnum UnicodeScriptInvalidCode = -1
fromEnum UnicodeScriptCommon = 0
fromEnum UnicodeScriptInherited = 1
fromEnum UnicodeScriptArabic = 2
fromEnum UnicodeScriptArmenian = 3
fromEnum UnicodeScriptBengali = 4
fromEnum UnicodeScriptBopomofo = 5
fromEnum UnicodeScriptCherokee = 6
fromEnum UnicodeScriptCoptic = 7
fromEnum UnicodeScriptCyrillic = 8
fromEnum UnicodeScriptDeseret = 9
fromEnum UnicodeScriptDevanagari = 10
fromEnum UnicodeScriptEthiopic = 11
fromEnum UnicodeScriptGeorgian = 12
fromEnum UnicodeScriptGothic = 13
fromEnum UnicodeScriptGreek = 14
fromEnum UnicodeScriptGujarati = 15
fromEnum UnicodeScriptGurmukhi = 16
fromEnum UnicodeScriptHan = 17
fromEnum UnicodeScriptHangul = 18
fromEnum UnicodeScriptHebrew = 19
fromEnum UnicodeScriptHiragana = 20
fromEnum UnicodeScriptKannada = 21
fromEnum UnicodeScriptKatakana = 22
fromEnum UnicodeScriptKhmer = 23
fromEnum UnicodeScriptLao = 24
fromEnum UnicodeScriptLatin = 25
fromEnum UnicodeScriptMalayalam = 26
fromEnum UnicodeScriptMongolian = 27
fromEnum UnicodeScriptMyanmar = 28
fromEnum UnicodeScriptOgham = 29
fromEnum UnicodeScriptOldItalic = 30
fromEnum UnicodeScriptOriya = 31
fromEnum UnicodeScriptRunic = 32
fromEnum UnicodeScriptSinhala = 33
fromEnum UnicodeScriptSyriac = 34
fromEnum UnicodeScriptTamil = 35
fromEnum UnicodeScriptTelugu = 36
fromEnum UnicodeScriptThaana = 37
fromEnum UnicodeScriptThai = 38
fromEnum UnicodeScriptTibetan = 39
fromEnum UnicodeScriptCanadianAboriginal = 40
fromEnum UnicodeScriptYi = 41
fromEnum UnicodeScriptTagalog = 42
fromEnum UnicodeScriptHanunoo = 43
fromEnum UnicodeScriptBuhid = 44
fromEnum UnicodeScriptTagbanwa = 45
fromEnum UnicodeScriptBraille = 46
fromEnum UnicodeScriptCypriot = 47
fromEnum UnicodeScriptLimbu = 48
fromEnum UnicodeScriptOsmanya = 49
fromEnum UnicodeScriptShavian = 50
fromEnum UnicodeScriptLinearB = 51
fromEnum UnicodeScriptTaiLe = 52
fromEnum UnicodeScriptUgaritic = 53
fromEnum UnicodeScriptNewTaiLue = 54
fromEnum UnicodeScriptBuginese = 55
fromEnum UnicodeScriptGlagolitic = 56
fromEnum UnicodeScriptTifinagh = 57
fromEnum UnicodeScriptSylotiNagri = 58
fromEnum UnicodeScriptOldPersian = 59
fromEnum UnicodeScriptKharoshthi = 60
fromEnum UnicodeScriptUnknown = 61
fromEnum UnicodeScriptBalinese = 62
fromEnum UnicodeScriptCuneiform = 63
fromEnum UnicodeScriptPhoenician = 64
fromEnum UnicodeScriptPhagsPa = 65
fromEnum UnicodeScriptNko = 66
fromEnum UnicodeScriptKayahLi = 67
fromEnum UnicodeScriptLepcha = 68
fromEnum UnicodeScriptRejang = 69
fromEnum UnicodeScriptSundanese = 70
fromEnum UnicodeScriptSaurashtra = 71
fromEnum UnicodeScriptCham = 72
fromEnum UnicodeScriptOlChiki = 73
fromEnum UnicodeScriptVai = 74
fromEnum UnicodeScriptCarian = 75
fromEnum UnicodeScriptLycian = 76
fromEnum UnicodeScriptLydian = 77
fromEnum UnicodeScriptAvestan = 78
fromEnum UnicodeScriptBamum = 79
fromEnum UnicodeScriptEgyptianHieroglyphs = 80
fromEnum UnicodeScriptImperialAramaic = 81
fromEnum UnicodeScriptInscriptionalPahlavi = 82
fromEnum UnicodeScriptInscriptionalParthian = 83
fromEnum UnicodeScriptJavanese = 84
fromEnum UnicodeScriptKaithi = 85
fromEnum UnicodeScriptLisu = 86
fromEnum UnicodeScriptMeeteiMayek = 87
fromEnum UnicodeScriptOldSouthArabian = 88
fromEnum UnicodeScriptOldTurkic = 89
fromEnum UnicodeScriptSamaritan = 90
fromEnum UnicodeScriptTaiTham = 91
fromEnum UnicodeScriptTaiViet = 92
fromEnum UnicodeScriptBatak = 93
fromEnum UnicodeScriptBrahmi = 94
fromEnum UnicodeScriptMandaic = 95
fromEnum UnicodeScriptChakma = 96
fromEnum UnicodeScriptMeroiticCursive = 97
fromEnum UnicodeScriptMeroiticHieroglyphs = 98
fromEnum UnicodeScriptMiao = 99
fromEnum UnicodeScriptSharada = 100
fromEnum UnicodeScriptSoraSompeng = 101
fromEnum UnicodeScriptTakri = 102
fromEnum UnicodeScriptBassaVah = 103
fromEnum UnicodeScriptCaucasianAlbanian = 104
fromEnum UnicodeScriptDuployan = 105
fromEnum UnicodeScriptElbasan = 106
fromEnum UnicodeScriptGrantha = 107
fromEnum UnicodeScriptKhojki = 108
fromEnum UnicodeScriptKhudawadi = 109
fromEnum UnicodeScriptLinearA = 110
fromEnum UnicodeScriptMahajani = 111
fromEnum UnicodeScriptManichaean = 112
fromEnum UnicodeScriptMendeKikakui = 113
fromEnum UnicodeScriptModi = 114
fromEnum UnicodeScriptMro = 115
fromEnum UnicodeScriptNabataean = 116
fromEnum UnicodeScriptOldNorthArabian = 117
fromEnum UnicodeScriptOldPermic = 118
fromEnum UnicodeScriptPahawhHmong = 119
fromEnum UnicodeScriptPalmyrene = 120
fromEnum UnicodeScriptPauCinHau = 121
fromEnum UnicodeScriptPsalterPahlavi = 122
fromEnum UnicodeScriptSiddham = 123
fromEnum UnicodeScriptTirhuta = 124
fromEnum UnicodeScriptWarangCiti = 125
fromEnum UnicodeScriptAhom = 126
fromEnum UnicodeScriptAnatolianHieroglyphs = 127
fromEnum UnicodeScriptHatran = 128
fromEnum UnicodeScriptMultani = 129
fromEnum UnicodeScriptOldHungarian = 130
fromEnum UnicodeScriptSignwriting = 131
fromEnum UnicodeScriptAdlam = 132
fromEnum UnicodeScriptBhaiksuki = 133
fromEnum UnicodeScriptMarchen = 134
fromEnum UnicodeScriptNewa = 135
fromEnum UnicodeScriptOsage = 136
fromEnum UnicodeScriptTangut = 137
fromEnum UnicodeScriptMasaramGondi = 138
fromEnum UnicodeScriptNushu = 139
fromEnum UnicodeScriptSoyombo = 140
fromEnum UnicodeScriptZanabazarSquare = 141
fromEnum UnicodeScriptDogra = 142
fromEnum UnicodeScriptGunjalaGondi = 143
fromEnum UnicodeScriptHanifiRohingya = 144
fromEnum UnicodeScriptMakasar = 145
fromEnum UnicodeScriptMedefaidrin = 146
fromEnum UnicodeScriptOldSogdian = 147
fromEnum UnicodeScriptSogdian = 148
fromEnum (AnotherUnicodeScript k) = k
toEnum -1 = UnicodeScriptInvalidCode
toEnum 0 = UnicodeScriptCommon
toEnum 1 = UnicodeScriptInherited
toEnum 2 = UnicodeScriptArabic
toEnum 3 = UnicodeScriptArmenian
toEnum 4 = UnicodeScriptBengali
toEnum 5 = UnicodeScriptBopomofo
toEnum 6 = UnicodeScriptCherokee
toEnum 7 = UnicodeScriptCoptic
toEnum 8 = UnicodeScriptCyrillic
toEnum 9 = UnicodeScriptDeseret
toEnum 10 = UnicodeScriptDevanagari
toEnum 11 = UnicodeScriptEthiopic
toEnum 12 = UnicodeScriptGeorgian
toEnum 13 = UnicodeScriptGothic
toEnum 14 = UnicodeScriptGreek
toEnum 15 = UnicodeScriptGujarati
toEnum 16 = UnicodeScriptGurmukhi
toEnum 17 = UnicodeScriptHan
toEnum 18 = UnicodeScriptHangul
toEnum 19 = UnicodeScriptHebrew
toEnum 20 = UnicodeScriptHiragana
toEnum 21 = UnicodeScriptKannada
toEnum 22 = UnicodeScriptKatakana
toEnum 23 = UnicodeScriptKhmer
toEnum 24 = UnicodeScriptLao
toEnum 25 = UnicodeScriptLatin
toEnum 26 = UnicodeScriptMalayalam
toEnum 27 = UnicodeScriptMongolian
toEnum 28 = UnicodeScriptMyanmar
toEnum 29 = UnicodeScriptOgham
toEnum 30 = UnicodeScriptOldItalic
toEnum 31 = UnicodeScriptOriya
toEnum 32 = UnicodeScriptRunic
toEnum 33 = UnicodeScriptSinhala
toEnum 34 = UnicodeScriptSyriac
toEnum 35 = UnicodeScriptTamil
toEnum 36 = UnicodeScriptTelugu
toEnum 37 = UnicodeScriptThaana
toEnum 38 = UnicodeScriptThai
toEnum 39 = UnicodeScriptTibetan
toEnum 40 = UnicodeScriptCanadianAboriginal
toEnum 41 = UnicodeScriptYi
toEnum 42 = UnicodeScriptTagalog
toEnum 43 = UnicodeScriptHanunoo
toEnum 44 = UnicodeScriptBuhid
toEnum 45 = UnicodeScriptTagbanwa
toEnum 46 = UnicodeScriptBraille
toEnum 47 = UnicodeScriptCypriot
toEnum 48 = UnicodeScriptLimbu
toEnum 49 = UnicodeScriptOsmanya
toEnum 50 = UnicodeScriptShavian
toEnum 51 = UnicodeScriptLinearB
toEnum 52 = UnicodeScriptTaiLe
toEnum 53 = UnicodeScriptUgaritic
toEnum 54 = UnicodeScriptNewTaiLue
toEnum 55 = UnicodeScriptBuginese
toEnum 56 = UnicodeScriptGlagolitic
toEnum 57 = UnicodeScriptTifinagh
toEnum 58 = UnicodeScriptSylotiNagri
toEnum 59 = UnicodeScriptOldPersian
toEnum 60 = UnicodeScriptKharoshthi
toEnum 61 = UnicodeScriptUnknown
toEnum 62 = UnicodeScriptBalinese
toEnum 63 = UnicodeScriptCuneiform
toEnum 64 = UnicodeScriptPhoenician
toEnum 65 = UnicodeScriptPhagsPa
toEnum 66 = UnicodeScriptNko
toEnum 67 = UnicodeScriptKayahLi
toEnum 68 = UnicodeScriptLepcha
toEnum 69 = UnicodeScriptRejang
toEnum 70 = UnicodeScriptSundanese
toEnum 71 = UnicodeScriptSaurashtra
toEnum 72 = UnicodeScriptCham
toEnum 73 = UnicodeScriptOlChiki
toEnum 74 = UnicodeScriptVai
toEnum 75 = UnicodeScriptCarian
toEnum 76 = UnicodeScriptLycian
toEnum 77 = UnicodeScriptLydian
toEnum 78 = UnicodeScriptAvestan
toEnum 79 = UnicodeScriptBamum
toEnum 80 = UnicodeScriptEgyptianHieroglyphs
toEnum 81 = UnicodeScriptImperialAramaic
toEnum 82 = UnicodeScriptInscriptionalPahlavi
toEnum 83 = UnicodeScriptInscriptionalParthian
toEnum 84 = UnicodeScriptJavanese
toEnum 85 = UnicodeScriptKaithi
toEnum 86 = UnicodeScriptLisu
toEnum 87 = UnicodeScriptMeeteiMayek
toEnum 88 = UnicodeScriptOldSouthArabian
toEnum 89 = UnicodeScriptOldTurkic
toEnum 90 = UnicodeScriptSamaritan
toEnum 91 = UnicodeScriptTaiTham
toEnum 92 = UnicodeScriptTaiViet
toEnum 93 = UnicodeScriptBatak
toEnum 94 = UnicodeScriptBrahmi
toEnum 95 = UnicodeScriptMandaic
toEnum 96 = UnicodeScriptChakma
toEnum 97 = UnicodeScriptMeroiticCursive
toEnum 98 = UnicodeScriptMeroiticHieroglyphs
toEnum 99 = UnicodeScriptMiao
toEnum 100 = UnicodeScriptSharada
toEnum 101 = UnicodeScriptSoraSompeng
toEnum 102 = UnicodeScriptTakri
toEnum 103 = UnicodeScriptBassaVah
toEnum 104 = UnicodeScriptCaucasianAlbanian
toEnum 105 = UnicodeScriptDuployan
toEnum 106 = UnicodeScriptElbasan
toEnum 107 = UnicodeScriptGrantha
toEnum 108 = UnicodeScriptKhojki
toEnum 109 = UnicodeScriptKhudawadi
toEnum 110 = UnicodeScriptLinearA
toEnum 111 = UnicodeScriptMahajani
toEnum 112 = UnicodeScriptManichaean
toEnum 113 = UnicodeScriptMendeKikakui
toEnum 114 = UnicodeScriptModi
toEnum 115 = UnicodeScriptMro
toEnum 116 = UnicodeScriptNabataean
toEnum 117 = UnicodeScriptOldNorthArabian
toEnum 118 = UnicodeScriptOldPermic
toEnum 119 = UnicodeScriptPahawhHmong
toEnum 120 = UnicodeScriptPalmyrene
toEnum 121 = UnicodeScriptPauCinHau
toEnum 122 = UnicodeScriptPsalterPahlavi
toEnum 123 = UnicodeScriptSiddham
toEnum 124 = UnicodeScriptTirhuta
toEnum 125 = UnicodeScriptWarangCiti
toEnum 126 = UnicodeScriptAhom
toEnum 127 = UnicodeScriptAnatolianHieroglyphs
toEnum 128 = UnicodeScriptHatran
toEnum 129 = UnicodeScriptMultani
toEnum 130 = UnicodeScriptOldHungarian
toEnum 131 = UnicodeScriptSignwriting
toEnum 132 = UnicodeScriptAdlam
toEnum 133 = UnicodeScriptBhaiksuki
toEnum 134 = UnicodeScriptMarchen
toEnum 135 = UnicodeScriptNewa
toEnum 136 = UnicodeScriptOsage
toEnum 137 = UnicodeScriptTangut
toEnum 138 = UnicodeScriptMasaramGondi
toEnum 139 = UnicodeScriptNushu
toEnum 140 = UnicodeScriptSoyombo
toEnum 141 = UnicodeScriptZanabazarSquare
toEnum 142 = UnicodeScriptDogra
toEnum 143 = UnicodeScriptGunjalaGondi
toEnum 144 = UnicodeScriptHanifiRohingya
toEnum 145 = UnicodeScriptMakasar
toEnum 146 = UnicodeScriptMedefaidrin
toEnum 147 = UnicodeScriptOldSogdian
toEnum 148 = UnicodeScriptSogdian
toEnum k = AnotherUnicodeScript k
instance P.Ord UnicodeScript where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data UnicodeBreakType =
UnicodeBreakTypeMandatory
| UnicodeBreakTypeCarriageReturn
| UnicodeBreakTypeLineFeed
| UnicodeBreakTypeCombiningMark
| UnicodeBreakTypeSurrogate
| UnicodeBreakTypeZeroWidthSpace
| UnicodeBreakTypeInseparable
| UnicodeBreakTypeNonBreakingGlue
| UnicodeBreakTypeContingent
| UnicodeBreakTypeSpace
| UnicodeBreakTypeAfter
| UnicodeBreakTypeBefore
| UnicodeBreakTypeBeforeAndAfter
| UnicodeBreakTypeHyphen
| UnicodeBreakTypeNonStarter
| UnicodeBreakTypeOpenPunctuation
| UnicodeBreakTypeClosePunctuation
| UnicodeBreakTypeQuotation
| UnicodeBreakTypeExclamation
| UnicodeBreakTypeIdeographic
| UnicodeBreakTypeNumeric
| UnicodeBreakTypeInfixSeparator
| UnicodeBreakTypeSymbol
| UnicodeBreakTypeAlphabetic
| UnicodeBreakTypePrefix
| UnicodeBreakTypePostfix
| UnicodeBreakTypeComplexContext
| UnicodeBreakTypeAmbiguous
| UnicodeBreakTypeUnknown
| UnicodeBreakTypeNextLine
| UnicodeBreakTypeWordJoiner
| UnicodeBreakTypeHangulLJamo
| UnicodeBreakTypeHangulVJamo
| UnicodeBreakTypeHangulTJamo
| UnicodeBreakTypeHangulLvSyllable
| UnicodeBreakTypeHangulLvtSyllable
| UnicodeBreakTypeCloseParanthesis
| UnicodeBreakTypeConditionalJapaneseStarter
| UnicodeBreakTypeHebrewLetter
| UnicodeBreakTypeRegionalIndicator
| UnicodeBreakTypeEmojiBase
| UnicodeBreakTypeEmojiModifier
| UnicodeBreakTypeZeroWidthJoiner
| AnotherUnicodeBreakType Int
deriving (Show, Eq)
instance P.Enum UnicodeBreakType where
fromEnum UnicodeBreakTypeMandatory = 0
fromEnum UnicodeBreakTypeCarriageReturn = 1
fromEnum UnicodeBreakTypeLineFeed = 2
fromEnum UnicodeBreakTypeCombiningMark = 3
fromEnum UnicodeBreakTypeSurrogate = 4
fromEnum UnicodeBreakTypeZeroWidthSpace = 5
fromEnum UnicodeBreakTypeInseparable = 6
fromEnum UnicodeBreakTypeNonBreakingGlue = 7
fromEnum UnicodeBreakTypeContingent = 8
fromEnum UnicodeBreakTypeSpace = 9
fromEnum UnicodeBreakTypeAfter = 10
fromEnum UnicodeBreakTypeBefore = 11
fromEnum UnicodeBreakTypeBeforeAndAfter = 12
fromEnum UnicodeBreakTypeHyphen = 13
fromEnum UnicodeBreakTypeNonStarter = 14
fromEnum UnicodeBreakTypeOpenPunctuation = 15
fromEnum UnicodeBreakTypeClosePunctuation = 16
fromEnum UnicodeBreakTypeQuotation = 17
fromEnum UnicodeBreakTypeExclamation = 18
fromEnum UnicodeBreakTypeIdeographic = 19
fromEnum UnicodeBreakTypeNumeric = 20
fromEnum UnicodeBreakTypeInfixSeparator = 21
fromEnum UnicodeBreakTypeSymbol = 22
fromEnum UnicodeBreakTypeAlphabetic = 23
fromEnum UnicodeBreakTypePrefix = 24
fromEnum UnicodeBreakTypePostfix = 25
fromEnum UnicodeBreakTypeComplexContext = 26
fromEnum UnicodeBreakTypeAmbiguous = 27
fromEnum UnicodeBreakTypeUnknown = 28
fromEnum UnicodeBreakTypeNextLine = 29
fromEnum UnicodeBreakTypeWordJoiner = 30
fromEnum UnicodeBreakTypeHangulLJamo = 31
fromEnum UnicodeBreakTypeHangulVJamo = 32
fromEnum UnicodeBreakTypeHangulTJamo = 33
fromEnum UnicodeBreakTypeHangulLvSyllable = 34
fromEnum UnicodeBreakTypeHangulLvtSyllable = 35
fromEnum UnicodeBreakTypeCloseParanthesis = 36
fromEnum UnicodeBreakTypeConditionalJapaneseStarter = 37
fromEnum UnicodeBreakTypeHebrewLetter = 38
fromEnum UnicodeBreakTypeRegionalIndicator = 39
fromEnum UnicodeBreakTypeEmojiBase = 40
fromEnum UnicodeBreakTypeEmojiModifier = 41
fromEnum UnicodeBreakTypeZeroWidthJoiner = 42
fromEnum (AnotherUnicodeBreakType k) = k
toEnum 0 = UnicodeBreakTypeMandatory
toEnum 1 = UnicodeBreakTypeCarriageReturn
toEnum 2 = UnicodeBreakTypeLineFeed
toEnum 3 = UnicodeBreakTypeCombiningMark
toEnum 4 = UnicodeBreakTypeSurrogate
toEnum 5 = UnicodeBreakTypeZeroWidthSpace
toEnum 6 = UnicodeBreakTypeInseparable
toEnum 7 = UnicodeBreakTypeNonBreakingGlue
toEnum 8 = UnicodeBreakTypeContingent
toEnum 9 = UnicodeBreakTypeSpace
toEnum 10 = UnicodeBreakTypeAfter
toEnum 11 = UnicodeBreakTypeBefore
toEnum 12 = UnicodeBreakTypeBeforeAndAfter
toEnum 13 = UnicodeBreakTypeHyphen
toEnum 14 = UnicodeBreakTypeNonStarter
toEnum 15 = UnicodeBreakTypeOpenPunctuation
toEnum 16 = UnicodeBreakTypeClosePunctuation
toEnum 17 = UnicodeBreakTypeQuotation
toEnum 18 = UnicodeBreakTypeExclamation
toEnum 19 = UnicodeBreakTypeIdeographic
toEnum 20 = UnicodeBreakTypeNumeric
toEnum 21 = UnicodeBreakTypeInfixSeparator
toEnum 22 = UnicodeBreakTypeSymbol
toEnum 23 = UnicodeBreakTypeAlphabetic
toEnum 24 = UnicodeBreakTypePrefix
toEnum 25 = UnicodeBreakTypePostfix
toEnum 26 = UnicodeBreakTypeComplexContext
toEnum 27 = UnicodeBreakTypeAmbiguous
toEnum 28 = UnicodeBreakTypeUnknown
toEnum 29 = UnicodeBreakTypeNextLine
toEnum 30 = UnicodeBreakTypeWordJoiner
toEnum 31 = UnicodeBreakTypeHangulLJamo
toEnum 32 = UnicodeBreakTypeHangulVJamo
toEnum 33 = UnicodeBreakTypeHangulTJamo
toEnum 34 = UnicodeBreakTypeHangulLvSyllable
toEnum 35 = UnicodeBreakTypeHangulLvtSyllable
toEnum 36 = UnicodeBreakTypeCloseParanthesis
toEnum 37 = UnicodeBreakTypeConditionalJapaneseStarter
toEnum 38 = UnicodeBreakTypeHebrewLetter
toEnum 39 = UnicodeBreakTypeRegionalIndicator
toEnum 40 = UnicodeBreakTypeEmojiBase
toEnum 41 = UnicodeBreakTypeEmojiModifier
toEnum 42 = UnicodeBreakTypeZeroWidthJoiner
toEnum k = AnotherUnicodeBreakType k
instance P.Ord UnicodeBreakType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data TraverseType =
TraverseTypeInOrder
| TraverseTypePreOrder
| TraverseTypePostOrder
| TraverseTypeLevelOrder
| AnotherTraverseType Int
deriving (Show, Eq)
instance P.Enum TraverseType where
fromEnum TraverseTypeInOrder = 0
fromEnum TraverseTypePreOrder = 1
fromEnum TraverseTypePostOrder = 2
fromEnum TraverseTypeLevelOrder = 3
fromEnum (AnotherTraverseType k) = k
toEnum 0 = TraverseTypeInOrder
toEnum 1 = TraverseTypePreOrder
toEnum 2 = TraverseTypePostOrder
toEnum 3 = TraverseTypeLevelOrder
toEnum k = AnotherTraverseType k
instance P.Ord TraverseType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data TokenType =
TokenTypeEof
| TokenTypeLeftParen
| TokenTypeRightParen
| TokenTypeLeftCurly
| TokenTypeRightCurly
| TokenTypeLeftBrace
| TokenTypeRightBrace
| TokenTypeEqualSign
| TokenTypeComma
| TokenTypeNone
| TokenTypeError
| TokenTypeChar
| TokenTypeBinary
| TokenTypeOctal
| TokenTypeInt
| TokenTypeHex
| TokenTypeFloat
| TokenTypeString
| TokenTypeSymbol
| TokenTypeIdentifier
| TokenTypeIdentifierNull
| TokenTypeCommentSingle
| TokenTypeCommentMulti
| AnotherTokenType Int
deriving (Show, Eq)
instance P.Enum TokenType where
fromEnum TokenTypeEof = 0
fromEnum TokenTypeLeftParen = 40
fromEnum TokenTypeRightParen = 41
fromEnum TokenTypeLeftCurly = 123
fromEnum TokenTypeRightCurly = 125
fromEnum TokenTypeLeftBrace = 91
fromEnum TokenTypeRightBrace = 93
fromEnum TokenTypeEqualSign = 61
fromEnum TokenTypeComma = 44
fromEnum TokenTypeNone = 256
fromEnum TokenTypeError = 257
fromEnum TokenTypeChar = 258
fromEnum TokenTypeBinary = 259
fromEnum TokenTypeOctal = 260
fromEnum TokenTypeInt = 261
fromEnum TokenTypeHex = 262
fromEnum TokenTypeFloat = 263
fromEnum TokenTypeString = 264
fromEnum TokenTypeSymbol = 265
fromEnum TokenTypeIdentifier = 266
fromEnum TokenTypeIdentifierNull = 267
fromEnum TokenTypeCommentSingle = 268
fromEnum TokenTypeCommentMulti = 269
fromEnum (AnotherTokenType k) = k
toEnum 0 = TokenTypeEof
toEnum 40 = TokenTypeLeftParen
toEnum 41 = TokenTypeRightParen
toEnum 123 = TokenTypeLeftCurly
toEnum 125 = TokenTypeRightCurly
toEnum 91 = TokenTypeLeftBrace
toEnum 93 = TokenTypeRightBrace
toEnum 61 = TokenTypeEqualSign
toEnum 44 = TokenTypeComma
toEnum 256 = TokenTypeNone
toEnum 257 = TokenTypeError
toEnum 258 = TokenTypeChar
toEnum 259 = TokenTypeBinary
toEnum 260 = TokenTypeOctal
toEnum 261 = TokenTypeInt
toEnum 262 = TokenTypeHex
toEnum 263 = TokenTypeFloat
toEnum 264 = TokenTypeString
toEnum 265 = TokenTypeSymbol
toEnum 266 = TokenTypeIdentifier
toEnum 267 = TokenTypeIdentifierNull
toEnum 268 = TokenTypeCommentSingle
toEnum 269 = TokenTypeCommentMulti
toEnum k = AnotherTokenType k
instance P.Ord TokenType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data TimeType =
TimeTypeStandard
| TimeTypeDaylight
| TimeTypeUniversal
| AnotherTimeType Int
deriving (Show, Eq)
instance P.Enum TimeType where
fromEnum TimeTypeStandard = 0
fromEnum TimeTypeDaylight = 1
fromEnum TimeTypeUniversal = 2
fromEnum (AnotherTimeType k) = k
toEnum 0 = TimeTypeStandard
toEnum 1 = TimeTypeDaylight
toEnum 2 = TimeTypeUniversal
toEnum k = AnotherTimeType k
instance P.Ord TimeType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data ThreadError =
ThreadErrorThreadErrorAgain
| AnotherThreadError Int
deriving (Show, Eq)
instance P.Enum ThreadError where
fromEnum ThreadErrorThreadErrorAgain = 0
fromEnum (AnotherThreadError k) = k
toEnum 0 = ThreadErrorThreadErrorAgain
toEnum k = AnotherThreadError k
instance P.Ord ThreadError where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance GErrorClass ThreadError where
gerrorClassDomain _ = "g_thread_error"
catchThreadError ::
IO a ->
(ThreadError -> GErrorMessage -> IO a) ->
IO a
catchThreadError = catchGErrorJustDomain
handleThreadError ::
(ThreadError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleThreadError = handleGErrorJustDomain
data TestResult =
TestResultSuccess
| TestResultSkipped
| TestResultFailure
| TestResultIncomplete
| AnotherTestResult Int
deriving (Show, Eq)
instance P.Enum TestResult where
fromEnum TestResultSuccess = 0
fromEnum TestResultSkipped = 1
fromEnum TestResultFailure = 2
fromEnum TestResultIncomplete = 3
fromEnum (AnotherTestResult k) = k
toEnum 0 = TestResultSuccess
toEnum 1 = TestResultSkipped
toEnum 2 = TestResultFailure
toEnum 3 = TestResultIncomplete
toEnum k = AnotherTestResult k
instance P.Ord TestResult where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data TestLogType =
TestLogTypeNone
| TestLogTypeError
| TestLogTypeStartBinary
| TestLogTypeListCase
| TestLogTypeSkipCase
| TestLogTypeStartCase
| TestLogTypeStopCase
| TestLogTypeMinResult
| TestLogTypeMaxResult
| TestLogTypeMessage
| TestLogTypeStartSuite
| TestLogTypeStopSuite
| AnotherTestLogType Int
deriving (Show, Eq)
instance P.Enum TestLogType where
fromEnum TestLogTypeNone = 0
fromEnum TestLogTypeError = 1
fromEnum TestLogTypeStartBinary = 2
fromEnum TestLogTypeListCase = 3
fromEnum TestLogTypeSkipCase = 4
fromEnum TestLogTypeStartCase = 5
fromEnum TestLogTypeStopCase = 6
fromEnum TestLogTypeMinResult = 7
fromEnum TestLogTypeMaxResult = 8
fromEnum TestLogTypeMessage = 9
fromEnum TestLogTypeStartSuite = 10
fromEnum TestLogTypeStopSuite = 11
fromEnum (AnotherTestLogType k) = k
toEnum 0 = TestLogTypeNone
toEnum 1 = TestLogTypeError
toEnum 2 = TestLogTypeStartBinary
toEnum 3 = TestLogTypeListCase
toEnum 4 = TestLogTypeSkipCase
toEnum 5 = TestLogTypeStartCase
toEnum 6 = TestLogTypeStopCase
toEnum 7 = TestLogTypeMinResult
toEnum 8 = TestLogTypeMaxResult
toEnum 9 = TestLogTypeMessage
toEnum 10 = TestLogTypeStartSuite
toEnum 11 = TestLogTypeStopSuite
toEnum k = AnotherTestLogType k
instance P.Ord TestLogType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data TestFileType =
TestFileTypeDist
| TestFileTypeBuilt
| AnotherTestFileType Int
deriving (Show, Eq)
instance P.Enum TestFileType where
fromEnum TestFileTypeDist = 0
fromEnum TestFileTypeBuilt = 1
fromEnum (AnotherTestFileType k) = k
toEnum 0 = TestFileTypeDist
toEnum 1 = TestFileTypeBuilt
toEnum k = AnotherTestFileType k
instance P.Ord TestFileType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data SpawnError =
SpawnErrorFork
| SpawnErrorRead
| SpawnErrorChdir
| SpawnErrorAcces
| SpawnErrorPerm
| SpawnErrorTooBig
| SpawnError2big
| SpawnErrorNoexec
| SpawnErrorNametoolong
| SpawnErrorNoent
| SpawnErrorNomem
| SpawnErrorNotdir
| SpawnErrorLoop
| SpawnErrorTxtbusy
| SpawnErrorIo
| SpawnErrorNfile
| SpawnErrorMfile
| SpawnErrorInval
| SpawnErrorIsdir
| SpawnErrorLibbad
| SpawnErrorFailed
| AnotherSpawnError Int
deriving (Show, Eq)
instance P.Enum SpawnError where
fromEnum SpawnErrorFork = 0
fromEnum SpawnErrorRead = 1
fromEnum SpawnErrorChdir = 2
fromEnum SpawnErrorAcces = 3
fromEnum SpawnErrorPerm = 4
fromEnum SpawnErrorTooBig = 5
fromEnum SpawnError2big = 5
fromEnum SpawnErrorNoexec = 6
fromEnum SpawnErrorNametoolong = 7
fromEnum SpawnErrorNoent = 8
fromEnum SpawnErrorNomem = 9
fromEnum SpawnErrorNotdir = 10
fromEnum SpawnErrorLoop = 11
fromEnum SpawnErrorTxtbusy = 12
fromEnum SpawnErrorIo = 13
fromEnum SpawnErrorNfile = 14
fromEnum SpawnErrorMfile = 15
fromEnum SpawnErrorInval = 16
fromEnum SpawnErrorIsdir = 17
fromEnum SpawnErrorLibbad = 18
fromEnum SpawnErrorFailed = 19
fromEnum (AnotherSpawnError k) = k
toEnum 0 = SpawnErrorFork
toEnum 1 = SpawnErrorRead
toEnum 2 = SpawnErrorChdir
toEnum 3 = SpawnErrorAcces
toEnum 4 = SpawnErrorPerm
toEnum 5 = SpawnErrorTooBig
toEnum 6 = SpawnErrorNoexec
toEnum 7 = SpawnErrorNametoolong
toEnum 8 = SpawnErrorNoent
toEnum 9 = SpawnErrorNomem
toEnum 10 = SpawnErrorNotdir
toEnum 11 = SpawnErrorLoop
toEnum 12 = SpawnErrorTxtbusy
toEnum 13 = SpawnErrorIo
toEnum 14 = SpawnErrorNfile
toEnum 15 = SpawnErrorMfile
toEnum 16 = SpawnErrorInval
toEnum 17 = SpawnErrorIsdir
toEnum 18 = SpawnErrorLibbad
toEnum 19 = SpawnErrorFailed
toEnum k = AnotherSpawnError k
instance P.Ord SpawnError where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance GErrorClass SpawnError where
gerrorClassDomain _ = "g-exec-error-quark"
catchSpawnError ::
IO a ->
(SpawnError -> GErrorMessage -> IO a) ->
IO a
catchSpawnError = catchGErrorJustDomain
handleSpawnError ::
(SpawnError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleSpawnError = handleGErrorJustDomain
data SliceConfig =
SliceConfigAlwaysMalloc
| SliceConfigBypassMagazines
| SliceConfigWorkingSetMsecs
| SliceConfigColorIncrement
| SliceConfigChunkSizes
| SliceConfigContentionCounter
| AnotherSliceConfig Int
deriving (Show, Eq)
instance P.Enum SliceConfig where
fromEnum SliceConfigAlwaysMalloc = 1
fromEnum SliceConfigBypassMagazines = 2
fromEnum SliceConfigWorkingSetMsecs = 3
fromEnum SliceConfigColorIncrement = 4
fromEnum SliceConfigChunkSizes = 5
fromEnum SliceConfigContentionCounter = 6
fromEnum (AnotherSliceConfig k) = k
toEnum 1 = SliceConfigAlwaysMalloc
toEnum 2 = SliceConfigBypassMagazines
toEnum 3 = SliceConfigWorkingSetMsecs
toEnum 4 = SliceConfigColorIncrement
toEnum 5 = SliceConfigChunkSizes
toEnum 6 = SliceConfigContentionCounter
toEnum k = AnotherSliceConfig k
instance P.Ord SliceConfig where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data ShellError =
ShellErrorBadQuoting
| ShellErrorEmptyString
| ShellErrorFailed
| AnotherShellError Int
deriving (Show, Eq)
instance P.Enum ShellError where
fromEnum ShellErrorBadQuoting = 0
fromEnum ShellErrorEmptyString = 1
fromEnum ShellErrorFailed = 2
fromEnum (AnotherShellError k) = k
toEnum 0 = ShellErrorBadQuoting
toEnum 1 = ShellErrorEmptyString
toEnum 2 = ShellErrorFailed
toEnum k = AnotherShellError k
instance P.Ord ShellError where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance GErrorClass ShellError where
gerrorClassDomain _ = "g-shell-error-quark"
catchShellError ::
IO a ->
(ShellError -> GErrorMessage -> IO a) ->
IO a
catchShellError = catchGErrorJustDomain
handleShellError ::
(ShellError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleShellError = handleGErrorJustDomain
data SeekType =
SeekTypeCur
| SeekTypeSet
| SeekTypeEnd
| AnotherSeekType Int
deriving (Show, Eq)
instance P.Enum SeekType where
fromEnum SeekTypeCur = 0
fromEnum SeekTypeSet = 1
fromEnum SeekTypeEnd = 2
fromEnum (AnotherSeekType k) = k
toEnum 0 = SeekTypeCur
toEnum 1 = SeekTypeSet
toEnum 2 = SeekTypeEnd
toEnum k = AnotherSeekType k
instance P.Ord SeekType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data RegexError =
RegexErrorCompile
| RegexErrorOptimize
| RegexErrorReplace
| RegexErrorMatch
| RegexErrorInternal
| RegexErrorStrayBackslash
| RegexErrorMissingControlChar
| RegexErrorUnrecognizedEscape
| RegexErrorQuantifiersOutOfOrder
| RegexErrorQuantifierTooBig
| RegexErrorUnterminatedCharacterClass
| RegexErrorInvalidEscapeInCharacterClass
| RegexErrorRangeOutOfOrder
| RegexErrorNothingToRepeat
| RegexErrorUnrecognizedCharacter
| RegexErrorPosixNamedClassOutsideClass
| RegexErrorUnmatchedParenthesis
| RegexErrorInexistentSubpatternReference
| RegexErrorUnterminatedComment
| RegexErrorExpressionTooLarge
| RegexErrorMemoryError
| RegexErrorVariableLengthLookbehind
| RegexErrorMalformedCondition
| RegexErrorTooManyConditionalBranches
| RegexErrorAssertionExpected
| RegexErrorUnknownPosixClassName
| RegexErrorPosixCollatingElementsNotSupported
| RegexErrorHexCodeTooLarge
| RegexErrorInvalidCondition
| RegexErrorSingleByteMatchInLookbehind
| RegexErrorInfiniteLoop
| RegexErrorMissingSubpatternNameTerminator
| RegexErrorDuplicateSubpatternName
| RegexErrorMalformedProperty
| RegexErrorUnknownProperty
| RegexErrorSubpatternNameTooLong
| RegexErrorTooManySubpatterns
| RegexErrorInvalidOctalValue
| RegexErrorTooManyBranchesInDefine
| RegexErrorDefineRepetion
| RegexErrorInconsistentNewlineOptions
| RegexErrorMissingBackReference
| RegexErrorInvalidRelativeReference
| RegexErrorBacktrackingControlVerbArgumentForbidden
| RegexErrorUnknownBacktrackingControlVerb
| RegexErrorNumberTooBig
| RegexErrorMissingSubpatternName
| RegexErrorMissingDigit
| RegexErrorInvalidDataCharacter
| RegexErrorExtraSubpatternName
| RegexErrorBacktrackingControlVerbArgumentRequired
| RegexErrorInvalidControlChar
| RegexErrorMissingName
| RegexErrorNotSupportedInClass
| RegexErrorTooManyForwardReferences
| RegexErrorNameTooLong
| RegexErrorCharacterValueTooLarge
| AnotherRegexError Int
deriving (Show, Eq)
instance P.Enum RegexError where
fromEnum RegexErrorCompile = 0
fromEnum RegexErrorOptimize = 1
fromEnum RegexErrorReplace = 2
fromEnum RegexErrorMatch = 3
fromEnum RegexErrorInternal = 4
fromEnum RegexErrorStrayBackslash = 101
fromEnum RegexErrorMissingControlChar = 102
fromEnum RegexErrorUnrecognizedEscape = 103
fromEnum RegexErrorQuantifiersOutOfOrder = 104
fromEnum RegexErrorQuantifierTooBig = 105
fromEnum RegexErrorUnterminatedCharacterClass = 106
fromEnum RegexErrorInvalidEscapeInCharacterClass = 107
fromEnum RegexErrorRangeOutOfOrder = 108
fromEnum RegexErrorNothingToRepeat = 109
fromEnum RegexErrorUnrecognizedCharacter = 112
fromEnum RegexErrorPosixNamedClassOutsideClass = 113
fromEnum RegexErrorUnmatchedParenthesis = 114
fromEnum RegexErrorInexistentSubpatternReference = 115
fromEnum RegexErrorUnterminatedComment = 118
fromEnum RegexErrorExpressionTooLarge = 120
fromEnum RegexErrorMemoryError = 121
fromEnum RegexErrorVariableLengthLookbehind = 125
fromEnum RegexErrorMalformedCondition = 126
fromEnum RegexErrorTooManyConditionalBranches = 127
fromEnum RegexErrorAssertionExpected = 128
fromEnum RegexErrorUnknownPosixClassName = 130
fromEnum RegexErrorPosixCollatingElementsNotSupported = 131
fromEnum RegexErrorHexCodeTooLarge = 134
fromEnum RegexErrorInvalidCondition = 135
fromEnum RegexErrorSingleByteMatchInLookbehind = 136
fromEnum RegexErrorInfiniteLoop = 140
fromEnum RegexErrorMissingSubpatternNameTerminator = 142
fromEnum RegexErrorDuplicateSubpatternName = 143
fromEnum RegexErrorMalformedProperty = 146
fromEnum RegexErrorUnknownProperty = 147
fromEnum RegexErrorSubpatternNameTooLong = 148
fromEnum RegexErrorTooManySubpatterns = 149
fromEnum RegexErrorInvalidOctalValue = 151
fromEnum RegexErrorTooManyBranchesInDefine = 154
fromEnum RegexErrorDefineRepetion = 155
fromEnum RegexErrorInconsistentNewlineOptions = 156
fromEnum RegexErrorMissingBackReference = 157
fromEnum RegexErrorInvalidRelativeReference = 158
fromEnum RegexErrorBacktrackingControlVerbArgumentForbidden = 159
fromEnum RegexErrorUnknownBacktrackingControlVerb = 160
fromEnum RegexErrorNumberTooBig = 161
fromEnum RegexErrorMissingSubpatternName = 162
fromEnum RegexErrorMissingDigit = 163
fromEnum RegexErrorInvalidDataCharacter = 164
fromEnum RegexErrorExtraSubpatternName = 165
fromEnum RegexErrorBacktrackingControlVerbArgumentRequired = 166
fromEnum RegexErrorInvalidControlChar = 168
fromEnum RegexErrorMissingName = 169
fromEnum RegexErrorNotSupportedInClass = 171
fromEnum RegexErrorTooManyForwardReferences = 172
fromEnum RegexErrorNameTooLong = 175
fromEnum RegexErrorCharacterValueTooLarge = 176
fromEnum (AnotherRegexError k) = k
toEnum 0 = RegexErrorCompile
toEnum 1 = RegexErrorOptimize
toEnum 2 = RegexErrorReplace
toEnum 3 = RegexErrorMatch
toEnum 4 = RegexErrorInternal
toEnum 101 = RegexErrorStrayBackslash
toEnum 102 = RegexErrorMissingControlChar
toEnum 103 = RegexErrorUnrecognizedEscape
toEnum 104 = RegexErrorQuantifiersOutOfOrder
toEnum 105 = RegexErrorQuantifierTooBig
toEnum 106 = RegexErrorUnterminatedCharacterClass
toEnum 107 = RegexErrorInvalidEscapeInCharacterClass
toEnum 108 = RegexErrorRangeOutOfOrder
toEnum 109 = RegexErrorNothingToRepeat
toEnum 112 = RegexErrorUnrecognizedCharacter
toEnum 113 = RegexErrorPosixNamedClassOutsideClass
toEnum 114 = RegexErrorUnmatchedParenthesis
toEnum 115 = RegexErrorInexistentSubpatternReference
toEnum 118 = RegexErrorUnterminatedComment
toEnum 120 = RegexErrorExpressionTooLarge
toEnum 121 = RegexErrorMemoryError
toEnum 125 = RegexErrorVariableLengthLookbehind
toEnum 126 = RegexErrorMalformedCondition
toEnum 127 = RegexErrorTooManyConditionalBranches
toEnum 128 = RegexErrorAssertionExpected
toEnum 130 = RegexErrorUnknownPosixClassName
toEnum 131 = RegexErrorPosixCollatingElementsNotSupported
toEnum 134 = RegexErrorHexCodeTooLarge
toEnum 135 = RegexErrorInvalidCondition
toEnum 136 = RegexErrorSingleByteMatchInLookbehind
toEnum 140 = RegexErrorInfiniteLoop
toEnum 142 = RegexErrorMissingSubpatternNameTerminator
toEnum 143 = RegexErrorDuplicateSubpatternName
toEnum 146 = RegexErrorMalformedProperty
toEnum 147 = RegexErrorUnknownProperty
toEnum 148 = RegexErrorSubpatternNameTooLong
toEnum 149 = RegexErrorTooManySubpatterns
toEnum 151 = RegexErrorInvalidOctalValue
toEnum 154 = RegexErrorTooManyBranchesInDefine
toEnum 155 = RegexErrorDefineRepetion
toEnum 156 = RegexErrorInconsistentNewlineOptions
toEnum 157 = RegexErrorMissingBackReference
toEnum 158 = RegexErrorInvalidRelativeReference
toEnum 159 = RegexErrorBacktrackingControlVerbArgumentForbidden
toEnum 160 = RegexErrorUnknownBacktrackingControlVerb
toEnum 161 = RegexErrorNumberTooBig
toEnum 162 = RegexErrorMissingSubpatternName
toEnum 163 = RegexErrorMissingDigit
toEnum 164 = RegexErrorInvalidDataCharacter
toEnum 165 = RegexErrorExtraSubpatternName
toEnum 166 = RegexErrorBacktrackingControlVerbArgumentRequired
toEnum 168 = RegexErrorInvalidControlChar
toEnum 169 = RegexErrorMissingName
toEnum 171 = RegexErrorNotSupportedInClass
toEnum 172 = RegexErrorTooManyForwardReferences
toEnum 175 = RegexErrorNameTooLong
toEnum 176 = RegexErrorCharacterValueTooLarge
toEnum k = AnotherRegexError k
instance P.Ord RegexError where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance GErrorClass RegexError where
gerrorClassDomain _ = "g-regex-error-quark"
catchRegexError ::
IO a ->
(RegexError -> GErrorMessage -> IO a) ->
IO a
catchRegexError = catchGErrorJustDomain
handleRegexError ::
(RegexError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleRegexError = handleGErrorJustDomain
data OptionError =
OptionErrorUnknownOption
| OptionErrorBadValue
| OptionErrorFailed
| AnotherOptionError Int
deriving (Show, Eq)
instance P.Enum OptionError where
fromEnum OptionErrorUnknownOption = 0
fromEnum OptionErrorBadValue = 1
fromEnum OptionErrorFailed = 2
fromEnum (AnotherOptionError k) = k
toEnum 0 = OptionErrorUnknownOption
toEnum 1 = OptionErrorBadValue
toEnum 2 = OptionErrorFailed
toEnum k = AnotherOptionError k
instance P.Ord OptionError where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance GErrorClass OptionError where
gerrorClassDomain _ = "g-option-context-error-quark"
catchOptionError ::
IO a ->
(OptionError -> GErrorMessage -> IO a) ->
IO a
catchOptionError = catchGErrorJustDomain
handleOptionError ::
(OptionError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleOptionError = handleGErrorJustDomain
data OptionArg =
OptionArgNone
| OptionArgString
| OptionArgInt
| OptionArgCallback
| OptionArgFilename
| OptionArgStringArray
| OptionArgFilenameArray
| OptionArgDouble
| OptionArgInt64
| AnotherOptionArg Int
deriving (Show, Eq)
instance P.Enum OptionArg where
fromEnum OptionArgNone = 0
fromEnum OptionArgString = 1
fromEnum OptionArgInt = 2
fromEnum OptionArgCallback = 3
fromEnum OptionArgFilename = 4
fromEnum OptionArgStringArray = 5
fromEnum OptionArgFilenameArray = 6
fromEnum OptionArgDouble = 7
fromEnum OptionArgInt64 = 8
fromEnum (AnotherOptionArg k) = k
toEnum 0 = OptionArgNone
toEnum 1 = OptionArgString
toEnum 2 = OptionArgInt
toEnum 3 = OptionArgCallback
toEnum 4 = OptionArgFilename
toEnum 5 = OptionArgStringArray
toEnum 6 = OptionArgFilenameArray
toEnum 7 = OptionArgDouble
toEnum 8 = OptionArgInt64
toEnum k = AnotherOptionArg k
instance P.Ord OptionArg where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data OnceStatus =
OnceStatusNotcalled
| OnceStatusProgress
| OnceStatusReady
| AnotherOnceStatus Int
deriving (Show, Eq)
instance P.Enum OnceStatus where
fromEnum OnceStatusNotcalled = 0
fromEnum OnceStatusProgress = 1
fromEnum OnceStatusReady = 2
fromEnum (AnotherOnceStatus k) = k
toEnum 0 = OnceStatusNotcalled
toEnum 1 = OnceStatusProgress
toEnum 2 = OnceStatusReady
toEnum k = AnotherOnceStatus k
instance P.Ord OnceStatus where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data NumberParserError =
NumberParserErrorInvalid
| NumberParserErrorOutOfBounds
| AnotherNumberParserError Int
deriving (Show, Eq)
instance P.Enum NumberParserError where
fromEnum NumberParserErrorInvalid = 0
fromEnum NumberParserErrorOutOfBounds = 1
fromEnum (AnotherNumberParserError k) = k
toEnum 0 = NumberParserErrorInvalid
toEnum 1 = NumberParserErrorOutOfBounds
toEnum k = AnotherNumberParserError k
instance P.Ord NumberParserError where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance GErrorClass NumberParserError where
gerrorClassDomain _ = "g-number-parser-error-quark"
catchNumberParserError ::
IO a ->
(NumberParserError -> GErrorMessage -> IO a) ->
IO a
catchNumberParserError = catchGErrorJustDomain
handleNumberParserError ::
(NumberParserError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleNumberParserError = handleGErrorJustDomain
data NormalizeMode =
NormalizeModeDefault
| NormalizeModeNfd
| NormalizeModeDefaultCompose
| NormalizeModeNfc
| NormalizeModeAll
| NormalizeModeNfkd
| NormalizeModeAllCompose
| NormalizeModeNfkc
| AnotherNormalizeMode Int
deriving (Show, Eq)
instance P.Enum NormalizeMode where
fromEnum NormalizeModeDefault = 0
fromEnum NormalizeModeNfd = 0
fromEnum NormalizeModeDefaultCompose = 1
fromEnum NormalizeModeNfc = 1
fromEnum NormalizeModeAll = 2
fromEnum NormalizeModeNfkd = 2
fromEnum NormalizeModeAllCompose = 3
fromEnum NormalizeModeNfkc = 3
fromEnum (AnotherNormalizeMode k) = k
toEnum 0 = NormalizeModeDefault
toEnum 1 = NormalizeModeDefaultCompose
toEnum 2 = NormalizeModeAll
toEnum 3 = NormalizeModeAllCompose
toEnum k = AnotherNormalizeMode k
instance P.Ord NormalizeMode where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data MarkupError =
MarkupErrorBadUtf8
| MarkupErrorEmpty
| MarkupErrorParse
| MarkupErrorUnknownElement
| MarkupErrorUnknownAttribute
| MarkupErrorInvalidContent
| MarkupErrorMissingAttribute
| AnotherMarkupError Int
deriving (Show, Eq)
instance P.Enum MarkupError where
fromEnum MarkupErrorBadUtf8 = 0
fromEnum MarkupErrorEmpty = 1
fromEnum MarkupErrorParse = 2
fromEnum MarkupErrorUnknownElement = 3
fromEnum MarkupErrorUnknownAttribute = 4
fromEnum MarkupErrorInvalidContent = 5
fromEnum MarkupErrorMissingAttribute = 6
fromEnum (AnotherMarkupError k) = k
toEnum 0 = MarkupErrorBadUtf8
toEnum 1 = MarkupErrorEmpty
toEnum 2 = MarkupErrorParse
toEnum 3 = MarkupErrorUnknownElement
toEnum 4 = MarkupErrorUnknownAttribute
toEnum 5 = MarkupErrorInvalidContent
toEnum 6 = MarkupErrorMissingAttribute
toEnum k = AnotherMarkupError k
instance P.Ord MarkupError where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance GErrorClass MarkupError where
gerrorClassDomain _ = "g-markup-error-quark"
catchMarkupError ::
IO a ->
(MarkupError -> GErrorMessage -> IO a) ->
IO a
catchMarkupError = catchGErrorJustDomain
handleMarkupError ::
(MarkupError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleMarkupError = handleGErrorJustDomain
data LogWriterOutput =
LogWriterOutputHandled
| LogWriterOutputUnhandled
| AnotherLogWriterOutput Int
deriving (Show, Eq)
instance P.Enum LogWriterOutput where
fromEnum LogWriterOutputHandled = 1
fromEnum LogWriterOutputUnhandled = 0
fromEnum (AnotherLogWriterOutput k) = k
toEnum 1 = LogWriterOutputHandled
toEnum 0 = LogWriterOutputUnhandled
toEnum k = AnotherLogWriterOutput k
instance P.Ord LogWriterOutput where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data KeyFileError =
KeyFileErrorUnknownEncoding
| KeyFileErrorParse
| KeyFileErrorNotFound
| KeyFileErrorKeyNotFound
| KeyFileErrorGroupNotFound
| KeyFileErrorInvalidValue
| AnotherKeyFileError Int
deriving (Show, Eq)
instance P.Enum KeyFileError where
fromEnum KeyFileErrorUnknownEncoding = 0
fromEnum KeyFileErrorParse = 1
fromEnum KeyFileErrorNotFound = 2
fromEnum KeyFileErrorKeyNotFound = 3
fromEnum KeyFileErrorGroupNotFound = 4
fromEnum KeyFileErrorInvalidValue = 5
fromEnum (AnotherKeyFileError k) = k
toEnum 0 = KeyFileErrorUnknownEncoding
toEnum 1 = KeyFileErrorParse
toEnum 2 = KeyFileErrorNotFound
toEnum 3 = KeyFileErrorKeyNotFound
toEnum 4 = KeyFileErrorGroupNotFound
toEnum 5 = KeyFileErrorInvalidValue
toEnum k = AnotherKeyFileError k
instance P.Ord KeyFileError where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance GErrorClass KeyFileError where
gerrorClassDomain _ = "g-key-file-error-quark"
catchKeyFileError ::
IO a ->
(KeyFileError -> GErrorMessage -> IO a) ->
IO a
catchKeyFileError = catchGErrorJustDomain
handleKeyFileError ::
(KeyFileError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleKeyFileError = handleGErrorJustDomain
data IOStatus =
IOStatusError
| IOStatusNormal
| IOStatusEof
| IOStatusAgain
| AnotherIOStatus Int
deriving (Show, Eq)
instance P.Enum IOStatus where
fromEnum IOStatusError = 0
fromEnum IOStatusNormal = 1
fromEnum IOStatusEof = 2
fromEnum IOStatusAgain = 3
fromEnum (AnotherIOStatus k) = k
toEnum 0 = IOStatusError
toEnum 1 = IOStatusNormal
toEnum 2 = IOStatusEof
toEnum 3 = IOStatusAgain
toEnum k = AnotherIOStatus k
instance P.Ord IOStatus where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data IOError =
IOErrorNone
| IOErrorAgain
| IOErrorInval
| IOErrorUnknown
| AnotherIOError Int
deriving (Show, Eq)
instance P.Enum IOError where
fromEnum IOErrorNone = 0
fromEnum IOErrorAgain = 1
fromEnum IOErrorInval = 2
fromEnum IOErrorUnknown = 3
fromEnum (AnotherIOError k) = k
toEnum 0 = IOErrorNone
toEnum 1 = IOErrorAgain
toEnum 2 = IOErrorInval
toEnum 3 = IOErrorUnknown
toEnum k = AnotherIOError k
instance P.Ord IOError where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data IOChannelError =
IOChannelErrorFbig
| IOChannelErrorInval
| IOChannelErrorIo
| IOChannelErrorIsdir
| IOChannelErrorNospc
| IOChannelErrorNxio
| IOChannelErrorOverflow
| IOChannelErrorPipe
| IOChannelErrorFailed
| AnotherIOChannelError Int
deriving (Show, Eq)
instance P.Enum IOChannelError where
fromEnum IOChannelErrorFbig = 0
fromEnum IOChannelErrorInval = 1
fromEnum IOChannelErrorIo = 2
fromEnum IOChannelErrorIsdir = 3
fromEnum IOChannelErrorNospc = 4
fromEnum IOChannelErrorNxio = 5
fromEnum IOChannelErrorOverflow = 6
fromEnum IOChannelErrorPipe = 7
fromEnum IOChannelErrorFailed = 8
fromEnum (AnotherIOChannelError k) = k
toEnum 0 = IOChannelErrorFbig
toEnum 1 = IOChannelErrorInval
toEnum 2 = IOChannelErrorIo
toEnum 3 = IOChannelErrorIsdir
toEnum 4 = IOChannelErrorNospc
toEnum 5 = IOChannelErrorNxio
toEnum 6 = IOChannelErrorOverflow
toEnum 7 = IOChannelErrorPipe
toEnum 8 = IOChannelErrorFailed
toEnum k = AnotherIOChannelError k
instance P.Ord IOChannelError where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance GErrorClass IOChannelError where
gerrorClassDomain _ = "g-io-channel-error-quark"
catchIOChannelError ::
IO a ->
(IOChannelError -> GErrorMessage -> IO a) ->
IO a
catchIOChannelError = catchGErrorJustDomain
handleIOChannelError ::
(IOChannelError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleIOChannelError = handleGErrorJustDomain
data FileError =
FileErrorExist
| FileErrorIsdir
| FileErrorAcces
| FileErrorNametoolong
| FileErrorNoent
| FileErrorNotdir
| FileErrorNxio
| FileErrorNodev
| FileErrorRofs
| FileErrorTxtbsy
| FileErrorFault
| FileErrorLoop
| FileErrorNospc
| FileErrorNomem
| FileErrorMfile
| FileErrorNfile
| FileErrorBadf
| FileErrorInval
| FileErrorPipe
| FileErrorAgain
| FileErrorIntr
| FileErrorIo
| FileErrorPerm
| FileErrorNosys
| FileErrorFailed
| AnotherFileError Int
deriving (Show, Eq)
instance P.Enum FileError where
fromEnum FileErrorExist = 0
fromEnum FileErrorIsdir = 1
fromEnum FileErrorAcces = 2
fromEnum FileErrorNametoolong = 3
fromEnum FileErrorNoent = 4
fromEnum FileErrorNotdir = 5
fromEnum FileErrorNxio = 6
fromEnum FileErrorNodev = 7
fromEnum FileErrorRofs = 8
fromEnum FileErrorTxtbsy = 9
fromEnum FileErrorFault = 10
fromEnum FileErrorLoop = 11
fromEnum FileErrorNospc = 12
fromEnum FileErrorNomem = 13
fromEnum FileErrorMfile = 14
fromEnum FileErrorNfile = 15
fromEnum FileErrorBadf = 16
fromEnum FileErrorInval = 17
fromEnum FileErrorPipe = 18
fromEnum FileErrorAgain = 19
fromEnum FileErrorIntr = 20
fromEnum FileErrorIo = 21
fromEnum FileErrorPerm = 22
fromEnum FileErrorNosys = 23
fromEnum FileErrorFailed = 24
fromEnum (AnotherFileError k) = k
toEnum 0 = FileErrorExist
toEnum 1 = FileErrorIsdir
toEnum 2 = FileErrorAcces
toEnum 3 = FileErrorNametoolong
toEnum 4 = FileErrorNoent
toEnum 5 = FileErrorNotdir
toEnum 6 = FileErrorNxio
toEnum 7 = FileErrorNodev
toEnum 8 = FileErrorRofs
toEnum 9 = FileErrorTxtbsy
toEnum 10 = FileErrorFault
toEnum 11 = FileErrorLoop
toEnum 12 = FileErrorNospc
toEnum 13 = FileErrorNomem
toEnum 14 = FileErrorMfile
toEnum 15 = FileErrorNfile
toEnum 16 = FileErrorBadf
toEnum 17 = FileErrorInval
toEnum 18 = FileErrorPipe
toEnum 19 = FileErrorAgain
toEnum 20 = FileErrorIntr
toEnum 21 = FileErrorIo
toEnum 22 = FileErrorPerm
toEnum 23 = FileErrorNosys
toEnum 24 = FileErrorFailed
toEnum k = AnotherFileError k
instance P.Ord FileError where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance GErrorClass FileError where
gerrorClassDomain _ = "g-file-error-quark"
catchFileError ::
IO a ->
(FileError -> GErrorMessage -> IO a) ->
IO a
catchFileError = catchGErrorJustDomain
handleFileError ::
(FileError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleFileError = handleGErrorJustDomain
data ErrorType =
ErrorTypeUnknown
| ErrorTypeUnexpEof
| ErrorTypeUnexpEofInString
| ErrorTypeUnexpEofInComment
| ErrorTypeNonDigitInConst
| ErrorTypeDigitRadix
| ErrorTypeFloatRadix
| ErrorTypeFloatMalformed
| AnotherErrorType Int
deriving (Show, Eq)
instance P.Enum ErrorType where
fromEnum ErrorTypeUnknown = 0
fromEnum ErrorTypeUnexpEof = 1
fromEnum ErrorTypeUnexpEofInString = 2
fromEnum ErrorTypeUnexpEofInComment = 3
fromEnum ErrorTypeNonDigitInConst = 4
fromEnum ErrorTypeDigitRadix = 5
fromEnum ErrorTypeFloatRadix = 6
fromEnum ErrorTypeFloatMalformed = 7
fromEnum (AnotherErrorType k) = k
toEnum 0 = ErrorTypeUnknown
toEnum 1 = ErrorTypeUnexpEof
toEnum 2 = ErrorTypeUnexpEofInString
toEnum 3 = ErrorTypeUnexpEofInComment
toEnum 4 = ErrorTypeNonDigitInConst
toEnum 5 = ErrorTypeDigitRadix
toEnum 6 = ErrorTypeFloatRadix
toEnum 7 = ErrorTypeFloatMalformed
toEnum k = AnotherErrorType k
instance P.Ord ErrorType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data DateWeekday =
DateWeekdayBadWeekday
| DateWeekdayMonday
| DateWeekdayTuesday
| DateWeekdayWednesday
| DateWeekdayThursday
| DateWeekdayFriday
| DateWeekdaySaturday
| DateWeekdaySunday
| AnotherDateWeekday Int
deriving (Show, Eq)
instance P.Enum DateWeekday where
fromEnum DateWeekdayBadWeekday = 0
fromEnum DateWeekdayMonday = 1
fromEnum DateWeekdayTuesday = 2
fromEnum DateWeekdayWednesday = 3
fromEnum DateWeekdayThursday = 4
fromEnum DateWeekdayFriday = 5
fromEnum DateWeekdaySaturday = 6
fromEnum DateWeekdaySunday = 7
fromEnum (AnotherDateWeekday k) = k
toEnum 0 = DateWeekdayBadWeekday
toEnum 1 = DateWeekdayMonday
toEnum 2 = DateWeekdayTuesday
toEnum 3 = DateWeekdayWednesday
toEnum 4 = DateWeekdayThursday
toEnum 5 = DateWeekdayFriday
toEnum 6 = DateWeekdaySaturday
toEnum 7 = DateWeekdaySunday
toEnum k = AnotherDateWeekday k
instance P.Ord DateWeekday where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data DateMonth =
DateMonthBadMonth
| DateMonthJanuary
| DateMonthFebruary
| DateMonthMarch
| DateMonthApril
| DateMonthMay
| DateMonthJune
| DateMonthJuly
| DateMonthAugust
| DateMonthSeptember
| DateMonthOctober
| DateMonthNovember
| DateMonthDecember
| AnotherDateMonth Int
deriving (Show, Eq)
instance P.Enum DateMonth where
fromEnum DateMonthBadMonth = 0
fromEnum DateMonthJanuary = 1
fromEnum DateMonthFebruary = 2
fromEnum DateMonthMarch = 3
fromEnum DateMonthApril = 4
fromEnum DateMonthMay = 5
fromEnum DateMonthJune = 6
fromEnum DateMonthJuly = 7
fromEnum DateMonthAugust = 8
fromEnum DateMonthSeptember = 9
fromEnum DateMonthOctober = 10
fromEnum DateMonthNovember = 11
fromEnum DateMonthDecember = 12
fromEnum (AnotherDateMonth k) = k
toEnum 0 = DateMonthBadMonth
toEnum 1 = DateMonthJanuary
toEnum 2 = DateMonthFebruary
toEnum 3 = DateMonthMarch
toEnum 4 = DateMonthApril
toEnum 5 = DateMonthMay
toEnum 6 = DateMonthJune
toEnum 7 = DateMonthJuly
toEnum 8 = DateMonthAugust
toEnum 9 = DateMonthSeptember
toEnum 10 = DateMonthOctober
toEnum 11 = DateMonthNovember
toEnum 12 = DateMonthDecember
toEnum k = AnotherDateMonth k
instance P.Ord DateMonth where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data DateDMY =
DateDMYDay
| DateDMYMonth
| DateDMYYear
| AnotherDateDMY Int
deriving (Show, Eq)
instance P.Enum DateDMY where
fromEnum DateDMYDay = 0
fromEnum DateDMYMonth = 1
fromEnum DateDMYYear = 2
fromEnum (AnotherDateDMY k) = k
toEnum 0 = DateDMYDay
toEnum 1 = DateDMYMonth
toEnum 2 = DateDMYYear
toEnum k = AnotherDateDMY k
instance P.Ord DateDMY where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data ConvertError =
ConvertErrorNoConversion
| ConvertErrorIllegalSequence
| ConvertErrorFailed
| ConvertErrorPartialInput
| ConvertErrorBadUri
| ConvertErrorNotAbsolutePath
| ConvertErrorNoMemory
| ConvertErrorEmbeddedNul
| AnotherConvertError Int
deriving (Show, Eq)
instance P.Enum ConvertError where
fromEnum ConvertErrorNoConversion = 0
fromEnum ConvertErrorIllegalSequence = 1
fromEnum ConvertErrorFailed = 2
fromEnum ConvertErrorPartialInput = 3
fromEnum ConvertErrorBadUri = 4
fromEnum ConvertErrorNotAbsolutePath = 5
fromEnum ConvertErrorNoMemory = 6
fromEnum ConvertErrorEmbeddedNul = 7
fromEnum (AnotherConvertError k) = k
toEnum 0 = ConvertErrorNoConversion
toEnum 1 = ConvertErrorIllegalSequence
toEnum 2 = ConvertErrorFailed
toEnum 3 = ConvertErrorPartialInput
toEnum 4 = ConvertErrorBadUri
toEnum 5 = ConvertErrorNotAbsolutePath
toEnum 6 = ConvertErrorNoMemory
toEnum 7 = ConvertErrorEmbeddedNul
toEnum k = AnotherConvertError k
instance P.Ord ConvertError where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance GErrorClass ConvertError where
gerrorClassDomain _ = "g_convert_error"
catchConvertError ::
IO a ->
(ConvertError -> GErrorMessage -> IO a) ->
IO a
catchConvertError = catchGErrorJustDomain
handleConvertError ::
(ConvertError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleConvertError = handleGErrorJustDomain
data ChecksumType =
ChecksumTypeMd5
| ChecksumTypeSha1
| ChecksumTypeSha256
| ChecksumTypeSha512
| ChecksumTypeSha384
| AnotherChecksumType Int
deriving (Show, Eq)
instance P.Enum ChecksumType where
fromEnum ChecksumTypeMd5 = 0
fromEnum ChecksumTypeSha1 = 1
fromEnum ChecksumTypeSha256 = 2
fromEnum ChecksumTypeSha512 = 3
fromEnum ChecksumTypeSha384 = 4
fromEnum (AnotherChecksumType k) = k
toEnum 0 = ChecksumTypeMd5
toEnum 1 = ChecksumTypeSha1
toEnum 2 = ChecksumTypeSha256
toEnum 3 = ChecksumTypeSha512
toEnum 4 = ChecksumTypeSha384
toEnum k = AnotherChecksumType k
instance P.Ord ChecksumType where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
data BookmarkFileError =
BookmarkFileErrorInvalidUri
| BookmarkFileErrorInvalidValue
| BookmarkFileErrorAppNotRegistered
| BookmarkFileErrorUriNotFound
| BookmarkFileErrorRead
| BookmarkFileErrorUnknownEncoding
| BookmarkFileErrorWrite
| BookmarkFileErrorFileNotFound
| AnotherBookmarkFileError Int
deriving (Show, Eq)
instance P.Enum BookmarkFileError where
fromEnum BookmarkFileErrorInvalidUri = 0
fromEnum BookmarkFileErrorInvalidValue = 1
fromEnum BookmarkFileErrorAppNotRegistered = 2
fromEnum BookmarkFileErrorUriNotFound = 3
fromEnum BookmarkFileErrorRead = 4
fromEnum BookmarkFileErrorUnknownEncoding = 5
fromEnum BookmarkFileErrorWrite = 6
fromEnum BookmarkFileErrorFileNotFound = 7
fromEnum (AnotherBookmarkFileError k) = k
toEnum 0 = BookmarkFileErrorInvalidUri
toEnum 1 = BookmarkFileErrorInvalidValue
toEnum 2 = BookmarkFileErrorAppNotRegistered
toEnum 3 = BookmarkFileErrorUriNotFound
toEnum 4 = BookmarkFileErrorRead
toEnum 5 = BookmarkFileErrorUnknownEncoding
toEnum 6 = BookmarkFileErrorWrite
toEnum 7 = BookmarkFileErrorFileNotFound
toEnum k = AnotherBookmarkFileError k
instance P.Ord BookmarkFileError where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance GErrorClass BookmarkFileError where
gerrorClassDomain _ = "g-bookmark-file-error-quark"
catchBookmarkFileError ::
IO a ->
(BookmarkFileError -> GErrorMessage -> IO a) ->
IO a
catchBookmarkFileError = catchGErrorJustDomain
handleBookmarkFileError ::
(BookmarkFileError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleBookmarkFileError = handleGErrorJustDomain