module Hat.Data.Char
(Char, String, gisControl, aisControl, hisControl,
gisSpace, aisSpace, hisSpace, gisLower, aisLower,
hisLower, gisUpper, aisUpper, hisUpper, gisAlpha,
aisAlpha, hisAlpha, gisAlphaNum, aisAlphaNum,
hisAlphaNum, gisPrint, aisPrint, hisPrint, gisDigit,
aisDigit, hisDigit, gisOctDigit, aisOctDigit,
hisOctDigit, gisHexDigit, aisHexDigit, hisHexDigit,
gisLetter, aisLetter, hisLetter, gisMark, aisMark,
hisMark, gisNumber, aisNumber, hisNumber,
gisPunctuation, aisPunctuation, hisPunctuation,
gisSymbol, aisSymbol, hisSymbol, gisSeparator,
aisSeparator, hisSeparator, gisAscii, aisAscii,
hisAscii, gisLatin1, aisLatin1, hisLatin1,
gisAsciiUpper, aisAsciiUpper, hisAsciiUpper,
gisAsciiLower, aisAsciiLower, hisAsciiLower,
GeneralCategory(UppercaseLetter, LowercaseLetter,
TitlecaseLetter, ModifierLetter, OtherLetter,
NonSpacingMark, SpacingCombiningMark, EnclosingMark,
DecimalNumber, LetterNumber, OtherNumber,
ConnectorPunctuation, DashPunctuation,
OpenPunctuation, ClosePunctuation, InitialQuote,
FinalQuote, OtherPunctuation, MathSymbol,
CurrencySymbol, ModifierSymbol, OtherSymbol, Space,
LineSeparator, ParagraphSeparator, Control, Format,
Surrogate, PrivateUse, NotAssigned),
aUppercaseLetter, aLowercaseLetter, aTitlecaseLetter,
aModifierLetter, aOtherLetter, aNonSpacingMark,
aSpacingCombiningMark, aEnclosingMark,
aDecimalNumber, aLetterNumber, aOtherNumber,
aConnectorPunctuation, aDashPunctuation,
aOpenPunctuation, aClosePunctuation, aInitialQuote,
aFinalQuote, aOtherPunctuation, aMathSymbol,
aCurrencySymbol, aModifierSymbol, aOtherSymbol,
aSpace, aLineSeparator, aParagraphSeparator,
aControl, aFormat, aSurrogate, aPrivateUse,
aNotAssigned, ggeneralCategory, ageneralCategory,
hgeneralCategory, gtoUpper, atoUpper, htoUpper,
gtoLower, atoLower, htoLower, gtoTitle, atoTitle,
htoTitle, gdigitToInt, adigitToInt, hdigitToInt,
gintToDigit, aintToDigit, hintToDigit, gord, gchr,
gshowLitChar, ashowLitChar, hshowLitChar,
glexLitChar, alexLitChar, hlexLitChar, greadLitChar,
areadLitChar, hreadLitChar)
where
import qualified Prelude
import qualified Hat.Hat as T
import qualified Hat.PreludeBasic
import qualified Hat.PreludeBuiltinTypes
import Hat.Prelude
import Hat.PreludeBasic
import Hat.Ix
import Hat.PreludeBuiltinTypes as T
import qualified Data.Char
gisLetter ::
T.RefSrcPos -> T.RefExp -> T.R (T.Fun Char Bool)
gisLetter pisLetter p
= T.ufun1 aisLetter pisLetter p hisLetter
hisLetter z1isLetter kisLetter
= T.fromBool kisLetter
(Data.Char.isLetter (T.toChar kisLetter z1isLetter))
gisMark ::
T.RefSrcPos -> T.RefExp -> T.R (T.Fun Char Bool)
gisMark pisMark p = T.ufun1 aisMark pisMark p hisMark
hisMark z1isMark kisMark
= T.fromBool kisMark
(Data.Char.isMark (T.toChar kisMark z1isMark))
gisNumber ::
T.RefSrcPos -> T.RefExp -> T.R (T.Fun Char Bool)
gisNumber pisNumber p
= T.ufun1 aisNumber pisNumber p hisNumber
hisNumber z1isNumber kisNumber
= T.fromBool kisNumber
(Data.Char.isNumber (T.toChar kisNumber z1isNumber))
gisPunctuation ::
T.RefSrcPos -> T.RefExp -> T.R (T.Fun Char Bool)
gisPunctuation pisPunctuation p
= T.ufun1 aisPunctuation pisPunctuation p
hisPunctuation
hisPunctuation z1isPunctuation kisPunctuation
= T.fromBool kisPunctuation
(Data.Char.isPunctuation
(T.toChar kisPunctuation z1isPunctuation))
gisSymbol ::
T.RefSrcPos -> T.RefExp -> T.R (T.Fun Char Bool)
gisSymbol pisSymbol p
= T.ufun1 aisSymbol pisSymbol p hisSymbol
hisSymbol z1isSymbol kisSymbol
= T.fromBool kisSymbol
(Data.Char.isSymbol (T.toChar kisSymbol z1isSymbol))
gisSeparator ::
T.RefSrcPos -> T.RefExp -> T.R (T.Fun Char Bool)
gisSeparator pisSeparator p
= T.ufun1 aisSeparator pisSeparator p hisSeparator
hisSeparator z1isSeparator kisSeparator
= T.fromBool kisSeparator
(Data.Char.isSeparator
(T.toChar kisSeparator z1isSeparator))
gisAsciiUpper ::
T.RefSrcPos -> T.RefExp -> T.R (T.Fun Char Bool)
gisAsciiUpper pisAsciiUpper p
= T.ufun1 aisAsciiUpper pisAsciiUpper p hisAsciiUpper
hisAsciiUpper z1isAsciiUpper kisAsciiUpper
= T.fromBool kisAsciiUpper
(Data.Char.isAsciiUpper
(T.toChar kisAsciiUpper z1isAsciiUpper))
gisAsciiLower ::
T.RefSrcPos -> T.RefExp -> T.R (T.Fun Char Bool)
gisAsciiLower pisAsciiLower p
= T.ufun1 aisAsciiLower pisAsciiLower p hisAsciiLower
hisAsciiLower z1isAsciiLower kisAsciiLower
= T.fromBool kisAsciiLower
(Data.Char.isAsciiLower
(T.toChar kisAsciiLower z1isAsciiLower))
gtoTitle ::
T.RefSrcPos -> T.RefExp -> T.R (T.Fun Char Char)
gtoTitle ptoTitle p
= T.ufun1 atoTitle ptoTitle p htoTitle
htoTitle z1toTitle ktoTitle
= T.fromChar ktoTitle
(Data.Char.toTitle (T.toChar ktoTitle z1toTitle))
data GeneralCategory = UppercaseLetter
| LowercaseLetter
| TitlecaseLetter
| ModifierLetter
| OtherLetter
| NonSpacingMark
| SpacingCombiningMark
| EnclosingMark
| DecimalNumber
| LetterNumber
| OtherNumber
| ConnectorPunctuation
| DashPunctuation
| OpenPunctuation
| ClosePunctuation
| InitialQuote
| FinalQuote
| OtherPunctuation
| MathSymbol
| CurrencySymbol
| ModifierSymbol
| OtherSymbol
| Space
| LineSeparator
| ParagraphSeparator
| Control
| Format
| Surrogate
| PrivateUse
| NotAssigned
instance T.WrapVal GeneralCategory where
wrapVal pwrapVal kwrapVal@UppercaseLetter p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aUppercaseLetter)
wrapVal pwrapVal kwrapVal@LowercaseLetter p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aLowercaseLetter)
wrapVal pwrapVal kwrapVal@TitlecaseLetter p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aTitlecaseLetter)
wrapVal pwrapVal kwrapVal@ModifierLetter p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aModifierLetter)
wrapVal pwrapVal kwrapVal@OtherLetter p
= T.R kwrapVal (T.mkValueUse p pwrapVal aOtherLetter)
wrapVal pwrapVal kwrapVal@NonSpacingMark p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aNonSpacingMark)
wrapVal pwrapVal kwrapVal@SpacingCombiningMark p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aSpacingCombiningMark)
wrapVal pwrapVal kwrapVal@EnclosingMark p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aEnclosingMark)
wrapVal pwrapVal kwrapVal@DecimalNumber p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aDecimalNumber)
wrapVal pwrapVal kwrapVal@LetterNumber p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aLetterNumber)
wrapVal pwrapVal kwrapVal@OtherNumber p
= T.R kwrapVal (T.mkValueUse p pwrapVal aOtherNumber)
wrapVal pwrapVal kwrapVal@ConnectorPunctuation p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aConnectorPunctuation)
wrapVal pwrapVal kwrapVal@DashPunctuation p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aDashPunctuation)
wrapVal pwrapVal kwrapVal@OpenPunctuation p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aOpenPunctuation)
wrapVal pwrapVal kwrapVal@ClosePunctuation p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aClosePunctuation)
wrapVal pwrapVal kwrapVal@InitialQuote p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aInitialQuote)
wrapVal pwrapVal kwrapVal@FinalQuote p
= T.R kwrapVal (T.mkValueUse p pwrapVal aFinalQuote)
wrapVal pwrapVal kwrapVal@OtherPunctuation p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aOtherPunctuation)
wrapVal pwrapVal kwrapVal@MathSymbol p
= T.R kwrapVal (T.mkValueUse p pwrapVal aMathSymbol)
wrapVal pwrapVal kwrapVal@CurrencySymbol p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aCurrencySymbol)
wrapVal pwrapVal kwrapVal@ModifierSymbol p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aModifierSymbol)
wrapVal pwrapVal kwrapVal@OtherSymbol p
= T.R kwrapVal (T.mkValueUse p pwrapVal aOtherSymbol)
wrapVal pwrapVal kwrapVal@Space p
= T.R kwrapVal (T.mkValueUse p pwrapVal aSpace)
wrapVal pwrapVal kwrapVal@LineSeparator p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aLineSeparator)
wrapVal pwrapVal kwrapVal@ParagraphSeparator p
= T.R kwrapVal
(T.mkValueUse p pwrapVal aParagraphSeparator)
wrapVal pwrapVal kwrapVal@Control p
= T.R kwrapVal (T.mkValueUse p pwrapVal aControl)
wrapVal pwrapVal kwrapVal@Format p
= T.R kwrapVal (T.mkValueUse p pwrapVal aFormat)
wrapVal pwrapVal kwrapVal@Surrogate p
= T.R kwrapVal (T.mkValueUse p pwrapVal aSurrogate)
wrapVal pwrapVal kwrapVal@PrivateUse p
= T.R kwrapVal (T.mkValueUse p pwrapVal aPrivateUse)
wrapVal pwrapVal kwrapVal@NotAssigned p
= T.R kwrapVal (T.mkValueUse p pwrapVal aNotAssigned)
instance Eq GeneralCategory where
(%==) !== p = T.ufun2 (+>>=#>=>>=$!==) (%==) p (*==)
where (T.R UppercaseLetter _ *==
T.R UppercaseLetter _)
p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R LowercaseLetter _ *== T.R LowercaseLetter _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R TitlecaseLetter _ *== T.R TitlecaseLetter _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R ModifierLetter _ *== T.R ModifierLetter _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R OtherLetter _ *== T.R OtherLetter _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R NonSpacingMark _ *== T.R NonSpacingMark _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R SpacingCombiningMark _ *==
T.R SpacingCombiningMark _)
p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R EnclosingMark _ *== T.R EnclosingMark _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R DecimalNumber _ *== T.R DecimalNumber _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R LetterNumber _ *== T.R LetterNumber _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R OtherNumber _ *== T.R OtherNumber _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R ConnectorPunctuation _ *==
T.R ConnectorPunctuation _)
p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R DashPunctuation _ *== T.R DashPunctuation _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R OpenPunctuation _ *== T.R OpenPunctuation _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R ClosePunctuation _ *== T.R ClosePunctuation _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R InitialQuote _ *== T.R InitialQuote _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R FinalQuote _ *== T.R FinalQuote _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R OtherPunctuation _ *== T.R OtherPunctuation _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R MathSymbol _ *== T.R MathSymbol _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R CurrencySymbol _ *== T.R CurrencySymbol _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R ModifierSymbol _ *== T.R ModifierSymbol _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R OtherSymbol _ *== T.R OtherSymbol _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R Space _ *== T.R Space _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R LineSeparator _ *== T.R LineSeparator _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R ParagraphSeparator _ *==
T.R ParagraphSeparator _)
p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R Control _ *== T.R Control _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R Format _ *== T.R Format _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R Surrogate _ *== T.R Surrogate _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R PrivateUse _ *== T.R PrivateUse _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(T.R NotAssigned _ *== T.R NotAssigned _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.True
Hat.PreludeBuiltinTypes.aTrue
(_ *== _) p
= T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse
instance Ord GeneralCategory where
gcompare pcompare p
= T.ufun2 c99v23v99v25compare pcompare p hcompare
where hcompare fy1 fy2 p
= T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p)
(T.uwrapForward p (hlocalFromEnum fy1 p))
(T.uwrapForward p (hlocalFromEnum fy2 p))
where glocalFromEnum plocalFromEnum p
= T.ufun1 c99v23v99v25localFromEnum plocalFromEnum p
hlocalFromEnum
alocalFromEnum = c99v23v99v25localFromEnum
hlocalFromEnum (T.R UppercaseLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (0))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R LowercaseLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (1))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R TitlecaseLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (2))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R ModifierLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (3))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R OtherLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (4))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R NonSpacingMark _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (5))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R SpacingCombiningMark _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (6))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R EnclosingMark _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (7))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R DecimalNumber _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (8))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R LetterNumber _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (9))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R OtherNumber _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (10))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R ConnectorPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (11))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R DashPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (12))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R OpenPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (13))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R ClosePunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (14))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R InitialQuote _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (15))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R FinalQuote _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (16))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R OtherPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (17))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R MathSymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (18))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R CurrencySymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (19))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R ModifierSymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (20))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R OtherSymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (21))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R Space _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (22))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R LineSeparator _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (23))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R ParagraphSeparator _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (24))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R Control _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (25))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R Format _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (26))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R Surrogate _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (27))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R PrivateUse _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (28))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum (T.R NotAssigned _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (29))
:: T.R Hat.PreludeBuiltinTypes.Int
hlocalFromEnum _ p = T.fatal p
instance Enum GeneralCategory where
gfromEnum pfromEnum p
= T.ufun1 c99v28v99v31fromEnum pfromEnum p hfromEnum
where hfromEnum (T.R UppercaseLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (0))
hfromEnum (T.R LowercaseLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (1))
hfromEnum (T.R TitlecaseLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (2))
hfromEnum (T.R ModifierLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (3))
hfromEnum (T.R OtherLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (4))
hfromEnum (T.R NonSpacingMark _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (5))
hfromEnum (T.R SpacingCombiningMark _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (6))
hfromEnum (T.R EnclosingMark _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (7))
hfromEnum (T.R DecimalNumber _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (8))
hfromEnum (T.R LetterNumber _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (9))
hfromEnum (T.R OtherNumber _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (10))
hfromEnum (T.R ConnectorPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (11))
hfromEnum (T.R DashPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (12))
hfromEnum (T.R OpenPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (13))
hfromEnum (T.R ClosePunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (14))
hfromEnum (T.R InitialQuote _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (15))
hfromEnum (T.R FinalQuote _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (16))
hfromEnum (T.R OtherPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (17))
hfromEnum (T.R MathSymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (18))
hfromEnum (T.R CurrencySymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (19))
hfromEnum (T.R ModifierSymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (20))
hfromEnum (T.R OtherSymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (21))
hfromEnum (T.R Space _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (22))
hfromEnum (T.R LineSeparator _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (23))
hfromEnum (T.R ParagraphSeparator _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (24))
hfromEnum (T.R Control _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (25))
hfromEnum (T.R Format _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (26))
hfromEnum (T.R Surrogate _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (27))
hfromEnum (T.R PrivateUse _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (28))
hfromEnum (T.R NotAssigned _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (29))
hfromEnum _ p = T.fatal p
gtoEnum ptoEnum p
= T.ufun1 c99v28v99v31toEnum ptoEnum p htoEnum
where htoEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (0))))
(h99v28v99v31n p)
(y1toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p UppercaseLetter
aUppercaseLetter
h99v28v99v31n p = y1toEnum fv99v28v99v31n p
htoEnum fv99v28v99v31n p = y1toEnum fv99v28v99v31n p
y1toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (1))))
(h99v28v99v31n p)
(y2toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p LowercaseLetter
aLowercaseLetter
h99v28v99v31n p = y2toEnum fv99v28v99v31n p
y1toEnum fv99v28v99v31n p = y2toEnum fv99v28v99v31n p
y2toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (2))))
(h99v28v99v31n p)
(y3toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p TitlecaseLetter
aTitlecaseLetter
h99v28v99v31n p = y3toEnum fv99v28v99v31n p
y2toEnum fv99v28v99v31n p = y3toEnum fv99v28v99v31n p
y3toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (3))))
(h99v28v99v31n p)
(y4toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p ModifierLetter
aModifierLetter
h99v28v99v31n p = y4toEnum fv99v28v99v31n p
y3toEnum fv99v28v99v31n p = y4toEnum fv99v28v99v31n p
y4toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (4))))
(h99v28v99v31n p)
(y5toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p OtherLetter aOtherLetter
h99v28v99v31n p = y5toEnum fv99v28v99v31n p
y4toEnum fv99v28v99v31n p = y5toEnum fv99v28v99v31n p
y5toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (5))))
(h99v28v99v31n p)
(y6toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p NonSpacingMark
aNonSpacingMark
h99v28v99v31n p = y6toEnum fv99v28v99v31n p
y5toEnum fv99v28v99v31n p = y6toEnum fv99v28v99v31n p
y6toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (6))))
(h99v28v99v31n p)
(y7toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p SpacingCombiningMark
aSpacingCombiningMark
h99v28v99v31n p = y7toEnum fv99v28v99v31n p
y6toEnum fv99v28v99v31n p = y7toEnum fv99v28v99v31n p
y7toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (7))))
(h99v28v99v31n p)
(y8toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p EnclosingMark aEnclosingMark
h99v28v99v31n p = y8toEnum fv99v28v99v31n p
y7toEnum fv99v28v99v31n p = y8toEnum fv99v28v99v31n p
y8toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (8))))
(h99v28v99v31n p)
(y9toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p DecimalNumber aDecimalNumber
h99v28v99v31n p = y9toEnum fv99v28v99v31n p
y8toEnum fv99v28v99v31n p = y9toEnum fv99v28v99v31n p
y9toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (9))))
(h99v28v99v31n p)
(y10toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p LetterNumber aLetterNumber
h99v28v99v31n p = y10toEnum fv99v28v99v31n p
y9toEnum fv99v28v99v31n p
= y10toEnum fv99v28v99v31n p
y10toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (10))))
(h99v28v99v31n p)
(y11toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p OtherNumber aOtherNumber
h99v28v99v31n p = y11toEnum fv99v28v99v31n p
y10toEnum fv99v28v99v31n p
= y11toEnum fv99v28v99v31n p
y11toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (11))))
(h99v28v99v31n p)
(y12toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p ConnectorPunctuation
aConnectorPunctuation
h99v28v99v31n p = y12toEnum fv99v28v99v31n p
y11toEnum fv99v28v99v31n p
= y12toEnum fv99v28v99v31n p
y12toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (12))))
(h99v28v99v31n p)
(y13toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p DashPunctuation
aDashPunctuation
h99v28v99v31n p = y13toEnum fv99v28v99v31n p
y12toEnum fv99v28v99v31n p
= y13toEnum fv99v28v99v31n p
y13toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (13))))
(h99v28v99v31n p)
(y14toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p OpenPunctuation
aOpenPunctuation
h99v28v99v31n p = y14toEnum fv99v28v99v31n p
y13toEnum fv99v28v99v31n p
= y14toEnum fv99v28v99v31n p
y14toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (14))))
(h99v28v99v31n p)
(y15toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p ClosePunctuation
aClosePunctuation
h99v28v99v31n p = y15toEnum fv99v28v99v31n p
y14toEnum fv99v28v99v31n p
= y15toEnum fv99v28v99v31n p
y15toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (15))))
(h99v28v99v31n p)
(y16toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p InitialQuote aInitialQuote
h99v28v99v31n p = y16toEnum fv99v28v99v31n p
y15toEnum fv99v28v99v31n p
= y16toEnum fv99v28v99v31n p
y16toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (16))))
(h99v28v99v31n p)
(y17toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p FinalQuote aFinalQuote
h99v28v99v31n p = y17toEnum fv99v28v99v31n p
y16toEnum fv99v28v99v31n p
= y17toEnum fv99v28v99v31n p
y17toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (17))))
(h99v28v99v31n p)
(y18toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p OtherPunctuation
aOtherPunctuation
h99v28v99v31n p = y18toEnum fv99v28v99v31n p
y17toEnum fv99v28v99v31n p
= y18toEnum fv99v28v99v31n p
y18toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (18))))
(h99v28v99v31n p)
(y19toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p MathSymbol aMathSymbol
h99v28v99v31n p = y19toEnum fv99v28v99v31n p
y18toEnum fv99v28v99v31n p
= y19toEnum fv99v28v99v31n p
y19toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (19))))
(h99v28v99v31n p)
(y20toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p CurrencySymbol
aCurrencySymbol
h99v28v99v31n p = y20toEnum fv99v28v99v31n p
y19toEnum fv99v28v99v31n p
= y20toEnum fv99v28v99v31n p
y20toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (20))))
(h99v28v99v31n p)
(y21toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p ModifierSymbol
aModifierSymbol
h99v28v99v31n p = y21toEnum fv99v28v99v31n p
y20toEnum fv99v28v99v31n p
= y21toEnum fv99v28v99v31n p
y21toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (21))))
(h99v28v99v31n p)
(y22toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p OtherSymbol aOtherSymbol
h99v28v99v31n p = y22toEnum fv99v28v99v31n p
y21toEnum fv99v28v99v31n p
= y22toEnum fv99v28v99v31n p
y22toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (22))))
(h99v28v99v31n p)
(y23toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p Space aSpace
h99v28v99v31n p = y23toEnum fv99v28v99v31n p
y22toEnum fv99v28v99v31n p
= y23toEnum fv99v28v99v31n p
y23toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (23))))
(h99v28v99v31n p)
(y24toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p LineSeparator aLineSeparator
h99v28v99v31n p = y24toEnum fv99v28v99v31n p
y23toEnum fv99v28v99v31n p
= y24toEnum fv99v28v99v31n p
y24toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (24))))
(h99v28v99v31n p)
(y25toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p ParagraphSeparator
aParagraphSeparator
h99v28v99v31n p = y25toEnum fv99v28v99v31n p
y24toEnum fv99v28v99v31n p
= y25toEnum fv99v28v99v31n p
y25toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (25))))
(h99v28v99v31n p)
(y26toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p Control aControl
h99v28v99v31n p = y26toEnum fv99v28v99v31n p
y25toEnum fv99v28v99v31n p
= y26toEnum fv99v28v99v31n p
y26toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (26))))
(h99v28v99v31n p)
(y27toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p Format aFormat
h99v28v99v31n p = y27toEnum fv99v28v99v31n p
y26toEnum fv99v28v99v31n p
= y27toEnum fv99v28v99v31n p
y27toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (27))))
(h99v28v99v31n p)
(y28toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p Surrogate aSurrogate
h99v28v99v31n p = y28toEnum fv99v28v99v31n p
y27toEnum fv99v28v99v31n p
= y28toEnum fv99v28v99v31n p
y28toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (28))))
(h99v28v99v31n p)
(y29toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p PrivateUse aPrivateUse
h99v28v99v31n p = y29toEnum fv99v28v99v31n p
y28toEnum fv99v28v99v31n p
= y29toEnum fv99v28v99v31n p
y29toEnum fv99v28v99v31n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (29))))
(h99v28v99v31n p)
(y30toEnum fv99v28v99v31n p)
where h99v28v99v31n p
= T.con0 T.mkNoSrcPos p NotAssigned aNotAssigned
h99v28v99v31n p = y30toEnum fv99v28v99v31n p
y29toEnum fv99v28v99v31n p
= y30toEnum fv99v28v99v31n p
y30toEnum _ p
= T.uwrapForward p
(herror
(T.fromLitString T.mkNoSrcPos p
"toEnum: argument out of bounds")
p)
genumFrom penumFrom p
= T.ufun1 c99v28v99v31enumFrom penumFrom p henumFrom
where henumFrom fy1 p
= T.uap2 T.mkNoSrcPos p (genumFromTo T.mkNoSrcPos p)
fy1
(T.con0 T.mkNoSrcPos p NotAssigned aNotAssigned)
genumFromThen penumFromThen p
= T.ufun2 c99v28v99v31enumFromThen penumFromThen p
henumFromThen
where henumFromThen fy1 fy2 p
= T.uap3 T.mkNoSrcPos p
(genumFromThenTo T.mkNoSrcPos p)
fy1
fy2
(T.ucif p
(T.uap2 T.mkNoSrcPos p ((!>=) T.mkNoSrcPos p)
(T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p)
fy2)
(T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p)
fy1))
(T.con0 T.mkNoSrcPos p NotAssigned aNotAssigned)
(T.con0 T.mkNoSrcPos p UppercaseLetter
aUppercaseLetter))
instance Read GeneralCategory where
greadsPrec preadsPrec p
= T.ufun1 c99v34v99v37readsPrec preadsPrec p
hreadsPrec
where hreadsPrec fy1 p
= T.uap2 T.mkNoSrcPos p
(Hat.PreludeBasic.galt T.mkNoSrcPos p)
(T.uwrapForward p
(hreadParen
(T.con0 T.mkNoSrcPos p Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward p
(Hat.PreludeBasic.hthenLex
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gyield T.mkNoSrcPos p)
(T.con0 T.mkNoSrcPos p UppercaseLetter
aUppercaseLetter))
(T.fromLitString T.mkNoSrcPos p
"UppercaseLetter")
p))
p))
(T.uap2 T.mkNoSrcPos p
(Hat.PreludeBasic.galt T.mkNoSrcPos p)
(T.uwrapForward p
(hreadParen
(T.con0 T.mkNoSrcPos p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward p
(Hat.PreludeBasic.hthenLex
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gyield T.mkNoSrcPos p)
(T.con0 T.mkNoSrcPos p LowercaseLetter
aLowercaseLetter))
(T.fromLitString T.mkNoSrcPos p
"LowercaseLetter")
p))
p))
(T.uap2 T.mkNoSrcPos p
(Hat.PreludeBasic.galt T.mkNoSrcPos p)
(T.uwrapForward p
(hreadParen
(T.con0 T.mkNoSrcPos p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward p
(Hat.PreludeBasic.hthenLex
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gyield T.mkNoSrcPos
p)
(T.con0 T.mkNoSrcPos p
TitlecaseLetter
aTitlecaseLetter))
(T.fromLitString T.mkNoSrcPos p
"TitlecaseLetter")
p))
p))
(T.uap2 T.mkNoSrcPos p
(Hat.PreludeBasic.galt T.mkNoSrcPos p)
(T.uwrapForward p
(hreadParen
(T.con0 T.mkNoSrcPos p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward p
(Hat.PreludeBasic.hthenLex
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0 T.mkNoSrcPos p
ModifierLetter
aModifierLetter))
(T.fromLitString T.mkNoSrcPos p
"ModifierLetter")
p))
p))
(T.uap2 T.mkNoSrcPos p
(Hat.PreludeBasic.galt T.mkNoSrcPos p)
(T.uwrapForward p
(hreadParen
(T.con0 T.mkNoSrcPos p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward p
(Hat.PreludeBasic.hthenLex
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0 T.mkNoSrcPos p
OtherLetter
aOtherLetter))
(T.fromLitString T.mkNoSrcPos p
"OtherLetter")
p))
p))
(T.uap2 T.mkNoSrcPos p
(Hat.PreludeBasic.galt T.mkNoSrcPos p)
(T.uwrapForward p
(hreadParen
(T.con0 T.mkNoSrcPos p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward p
(Hat.PreludeBasic.hthenLex
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0 T.mkNoSrcPos p
NonSpacingMark
aNonSpacingMark))
(T.fromLitString T.mkNoSrcPos p
"NonSpacingMark")
p))
p))
(T.uap2 T.mkNoSrcPos p
(Hat.PreludeBasic.galt T.mkNoSrcPos p)
(T.uwrapForward p
(hreadParen
(T.con0 T.mkNoSrcPos p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward p
(Hat.PreludeBasic.hthenLex
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0 T.mkNoSrcPos p
SpacingCombiningMark
aSpacingCombiningMark))
(T.fromLitString
T.mkNoSrcPos
p
"SpacingCombiningMark")
p))
p))
(T.uap2 T.mkNoSrcPos p
(Hat.PreludeBasic.galt T.mkNoSrcPos
p)
(T.uwrapForward p
(hreadParen
(T.con0 T.mkNoSrcPos p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward p
(Hat.PreludeBasic.hthenLex
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0 T.mkNoSrcPos p
EnclosingMark
aEnclosingMark))
(T.fromLitString
T.mkNoSrcPos
p
"EnclosingMark")
p))
p))
(T.uap2 T.mkNoSrcPos p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward p
(hreadParen
(T.con0 T.mkNoSrcPos p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward p
(Hat.PreludeBasic.hthenLex
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
DecimalNumber
aDecimalNumber))
(T.fromLitString
T.mkNoSrcPos
p
"DecimalNumber")
p))
p))
(T.uap2 T.mkNoSrcPos p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward p
(hreadParen
(T.con0 T.mkNoSrcPos p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
LetterNumber
aLetterNumber))
(T.fromLitString
T.mkNoSrcPos
p
"LetterNumber")
p))
p))
(T.uap2 T.mkNoSrcPos p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward p
(hreadParen
(T.con0 T.mkNoSrcPos p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
OtherNumber
aOtherNumber))
(T.fromLitString
T.mkNoSrcPos
p
"OtherNumber")
p))
p))
(T.uap2 T.mkNoSrcPos p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
ConnectorPunctuation
aConnectorPunctuation))
(T.fromLitString
T.mkNoSrcPos
p
"ConnectorPunctuation")
p))
p))
(T.uap2 T.mkNoSrcPos p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward
p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
DashPunctuation
aDashPunctuation))
(T.fromLitString
T.mkNoSrcPos
p
"DashPunctuation")
p))
p))
(T.uap2 T.mkNoSrcPos p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward
p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
OpenPunctuation
aOpenPunctuation))
(T.fromLitString
T.mkNoSrcPos
p
"OpenPunctuation")
p))
p))
(T.uap2
T.mkNoSrcPos
p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward
p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward
p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
ClosePunctuation
aClosePunctuation))
(T.fromLitString
T.mkNoSrcPos
p
"ClosePunctuation")
p))
p))
(T.uap2
T.mkNoSrcPos
p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward
p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward
p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
InitialQuote
aInitialQuote))
(T.fromLitString
T.mkNoSrcPos
p
"InitialQuote")
p))
p))
(T.uap2
T.mkNoSrcPos
p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward
p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward
p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
FinalQuote
aFinalQuote))
(T.fromLitString
T.mkNoSrcPos
p
"FinalQuote")
p))
p))
(T.uap2
T.mkNoSrcPos
p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward
p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward
p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
OtherPunctuation
aOtherPunctuation))
(T.fromLitString
T.mkNoSrcPos
p
"OtherPunctuation")
p))
p))
(T.uap2
T.mkNoSrcPos
p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward
p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward
p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
MathSymbol
aMathSymbol))
(T.fromLitString
T.mkNoSrcPos
p
"MathSymbol")
p))
p))
(T.uap2
T.mkNoSrcPos
p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward
p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward
p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
CurrencySymbol
aCurrencySymbol))
(T.fromLitString
T.mkNoSrcPos
p
"CurrencySymbol")
p))
p))
(T.uap2
T.mkNoSrcPos
p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward
p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward
p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
ModifierSymbol
aModifierSymbol))
(T.fromLitString
T.mkNoSrcPos
p
"ModifierSymbol")
p))
p))
(T.uap2
T.mkNoSrcPos
p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward
p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward
p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
OtherSymbol
aOtherSymbol))
(T.fromLitString
T.mkNoSrcPos
p
"OtherSymbol")
p))
p))
(T.uap2
T.mkNoSrcPos
p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward
p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward
p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
Space
aSpace))
(T.fromLitString
T.mkNoSrcPos
p
"Space")
p))
p))
(T.uap2
T.mkNoSrcPos
p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward
p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward
p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
LineSeparator
aLineSeparator))
(T.fromLitString
T.mkNoSrcPos
p
"LineSeparator")
p))
p))
(T.uap2
T.mkNoSrcPos
p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward
p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward
p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
ParagraphSeparator
aParagraphSeparator))
(T.fromLitString
T.mkNoSrcPos
p
"ParagraphSeparator")
p))
p))
(T.uap2
T.mkNoSrcPos
p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward
p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward
p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
Control
aControl))
(T.fromLitString
T.mkNoSrcPos
p
"Control")
p))
p))
(T.uap2
T.mkNoSrcPos
p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward
p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward
p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
Format
aFormat))
(T.fromLitString
T.mkNoSrcPos
p
"Format")
p))
p))
(T.uap2
T.mkNoSrcPos
p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward
p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward
p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
Surrogate
aSurrogate))
(T.fromLitString
T.mkNoSrcPos
p
"Surrogate")
p))
p))
(T.uap2
T.mkNoSrcPos
p
(Hat.PreludeBasic.galt
T.mkNoSrcPos
p)
(T.uwrapForward
p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward
p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
PrivateUse
aPrivateUse))
(T.fromLitString
T.mkNoSrcPos
p
"PrivateUse")
p))
p))
(T.uwrapForward
p
(hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.PreludeBuiltinTypes.False
Hat.PreludeBuiltinTypes.aFalse)
(T.uwrapForward
p
(Hat.PreludeBasic.hthenLex
(T.uap1
T.mkNoSrcPos
p
(Hat.PreludeBasic.gyield
T.mkNoSrcPos
p)
(T.con0
T.mkNoSrcPos
p
NotAssigned
aNotAssigned))
(T.fromLitString
T.mkNoSrcPos
p
"NotAssigned")
p))
p))))))))))))))))))))))))))))))
instance Show GeneralCategory where
gshowsPrec pshowsPrec p
= T.ufun2 c99v40v99v43showsPrec pshowsPrec p
hshowsPrec
where hshowsPrec fy1 (T.R UppercaseLetter _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "UppercaseLetter")
hshowsPrec fy1 (T.R LowercaseLetter _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "LowercaseLetter")
hshowsPrec fy1 (T.R TitlecaseLetter _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "TitlecaseLetter")
hshowsPrec fy1 (T.R ModifierLetter _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "ModifierLetter")
hshowsPrec fy1 (T.R OtherLetter _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "OtherLetter")
hshowsPrec fy1 (T.R NonSpacingMark _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "NonSpacingMark")
hshowsPrec fy1 (T.R SpacingCombiningMark _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p
"SpacingCombiningMark")
hshowsPrec fy1 (T.R EnclosingMark _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "EnclosingMark")
hshowsPrec fy1 (T.R DecimalNumber _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "DecimalNumber")
hshowsPrec fy1 (T.R LetterNumber _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "LetterNumber")
hshowsPrec fy1 (T.R OtherNumber _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "OtherNumber")
hshowsPrec fy1 (T.R ConnectorPunctuation _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p
"ConnectorPunctuation")
hshowsPrec fy1 (T.R DashPunctuation _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "DashPunctuation")
hshowsPrec fy1 (T.R OpenPunctuation _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "OpenPunctuation")
hshowsPrec fy1 (T.R ClosePunctuation _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "ClosePunctuation")
hshowsPrec fy1 (T.R InitialQuote _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "InitialQuote")
hshowsPrec fy1 (T.R FinalQuote _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "FinalQuote")
hshowsPrec fy1 (T.R OtherPunctuation _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "OtherPunctuation")
hshowsPrec fy1 (T.R MathSymbol _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "MathSymbol")
hshowsPrec fy1 (T.R CurrencySymbol _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "CurrencySymbol")
hshowsPrec fy1 (T.R ModifierSymbol _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "ModifierSymbol")
hshowsPrec fy1 (T.R OtherSymbol _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "OtherSymbol")
hshowsPrec fy1 (T.R Space _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "Space")
hshowsPrec fy1 (T.R LineSeparator _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "LineSeparator")
hshowsPrec fy1 (T.R ParagraphSeparator _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "ParagraphSeparator")
hshowsPrec fy1 (T.R Control _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "Control")
hshowsPrec fy1 (T.R Format _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "Format")
hshowsPrec fy1 (T.R Surrogate _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "Surrogate")
hshowsPrec fy1 (T.R PrivateUse _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "PrivateUse")
hshowsPrec fy1 (T.R NotAssigned _) p
= T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "NotAssigned")
hshowsPrec _ _ p = T.fatal p
instance Bounded GeneralCategory where
gminBound pminBound p
= T.uconstUse pminBound p sminBound
sminBound
= T.uconstDef p c99v46v99v52minBound
(\ p ->
T.con0 T.mkNoSrcPos p UppercaseLetter
aUppercaseLetter)
gmaxBound pmaxBound p
= T.uconstUse pmaxBound p smaxBound
smaxBound
= T.uconstDef p c99v46v99v52maxBound
(\ p ->
T.con0 T.mkNoSrcPos p NotAssigned aNotAssigned)
instance Ix GeneralCategory where
grange prange p
= T.ufun1 c99v55v99v56range prange p hrange
where hrange (T.R (T.Tuple2 fy1 fy2) _) p
= T.uwrapForward p
(hmap (grtoEnum T.mkNoSrcPos p)
(T.uap2 T.mkNoSrcPos p (genumFromTo T.mkNoSrcPos p)
(T.uwrapForward p (hrfromEnum fy1 p))
(T.uwrapForward p (hrfromEnum fy2 p)))
p)
where
grtoEnum ::
T.RefSrcPos ->
T.RefExp -> T.R (T.Fun Int GeneralCategory)
hrtoEnum ::
T.R Int -> T.RefExp -> T.R GeneralCategory
grtoEnum prtoEnum p
= T.ufun1 c99v55v99v56rtoEnum prtoEnum p hrtoEnum
artoEnum = c99v55v99v56rtoEnum
hrtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (0))))
(h99v55v99v56n p)
(y1rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p UppercaseLetter
aUppercaseLetter
h99v55v99v56n p = y1rtoEnum fv99v55v99v56n p
hrtoEnum fv99v55v99v56n p
= y1rtoEnum fv99v55v99v56n p
y1rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (1))))
(h99v55v99v56n p)
(y2rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p LowercaseLetter
aLowercaseLetter
h99v55v99v56n p = y2rtoEnum fv99v55v99v56n p
y1rtoEnum fv99v55v99v56n p
= y2rtoEnum fv99v55v99v56n p
y2rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (2))))
(h99v55v99v56n p)
(y3rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p TitlecaseLetter
aTitlecaseLetter
h99v55v99v56n p = y3rtoEnum fv99v55v99v56n p
y2rtoEnum fv99v55v99v56n p
= y3rtoEnum fv99v55v99v56n p
y3rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (3))))
(h99v55v99v56n p)
(y4rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p ModifierLetter
aModifierLetter
h99v55v99v56n p = y4rtoEnum fv99v55v99v56n p
y3rtoEnum fv99v55v99v56n p
= y4rtoEnum fv99v55v99v56n p
y4rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (4))))
(h99v55v99v56n p)
(y5rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p OtherLetter
aOtherLetter
h99v55v99v56n p = y5rtoEnum fv99v55v99v56n p
y4rtoEnum fv99v55v99v56n p
= y5rtoEnum fv99v55v99v56n p
y5rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (5))))
(h99v55v99v56n p)
(y6rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p NonSpacingMark
aNonSpacingMark
h99v55v99v56n p = y6rtoEnum fv99v55v99v56n p
y5rtoEnum fv99v55v99v56n p
= y6rtoEnum fv99v55v99v56n p
y6rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (6))))
(h99v55v99v56n p)
(y7rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p SpacingCombiningMark
aSpacingCombiningMark
h99v55v99v56n p = y7rtoEnum fv99v55v99v56n p
y6rtoEnum fv99v55v99v56n p
= y7rtoEnum fv99v55v99v56n p
y7rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (7))))
(h99v55v99v56n p)
(y8rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p EnclosingMark
aEnclosingMark
h99v55v99v56n p = y8rtoEnum fv99v55v99v56n p
y7rtoEnum fv99v55v99v56n p
= y8rtoEnum fv99v55v99v56n p
y8rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (8))))
(h99v55v99v56n p)
(y9rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p DecimalNumber
aDecimalNumber
h99v55v99v56n p = y9rtoEnum fv99v55v99v56n p
y8rtoEnum fv99v55v99v56n p
= y9rtoEnum fv99v55v99v56n p
y9rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (9))))
(h99v55v99v56n p)
(y10rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p LetterNumber
aLetterNumber
h99v55v99v56n p = y10rtoEnum fv99v55v99v56n p
y9rtoEnum fv99v55v99v56n p
= y10rtoEnum fv99v55v99v56n p
y10rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (10))))
(h99v55v99v56n p)
(y11rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p OtherNumber
aOtherNumber
h99v55v99v56n p = y11rtoEnum fv99v55v99v56n p
y10rtoEnum fv99v55v99v56n p
= y11rtoEnum fv99v55v99v56n p
y11rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (11))))
(h99v55v99v56n p)
(y12rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p ConnectorPunctuation
aConnectorPunctuation
h99v55v99v56n p = y12rtoEnum fv99v55v99v56n p
y11rtoEnum fv99v55v99v56n p
= y12rtoEnum fv99v55v99v56n p
y12rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (12))))
(h99v55v99v56n p)
(y13rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p DashPunctuation
aDashPunctuation
h99v55v99v56n p = y13rtoEnum fv99v55v99v56n p
y12rtoEnum fv99v55v99v56n p
= y13rtoEnum fv99v55v99v56n p
y13rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (13))))
(h99v55v99v56n p)
(y14rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p OpenPunctuation
aOpenPunctuation
h99v55v99v56n p = y14rtoEnum fv99v55v99v56n p
y13rtoEnum fv99v55v99v56n p
= y14rtoEnum fv99v55v99v56n p
y14rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (14))))
(h99v55v99v56n p)
(y15rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p ClosePunctuation
aClosePunctuation
h99v55v99v56n p = y15rtoEnum fv99v55v99v56n p
y14rtoEnum fv99v55v99v56n p
= y15rtoEnum fv99v55v99v56n p
y15rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (15))))
(h99v55v99v56n p)
(y16rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p InitialQuote
aInitialQuote
h99v55v99v56n p = y16rtoEnum fv99v55v99v56n p
y15rtoEnum fv99v55v99v56n p
= y16rtoEnum fv99v55v99v56n p
y16rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (16))))
(h99v55v99v56n p)
(y17rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p FinalQuote aFinalQuote
h99v55v99v56n p = y17rtoEnum fv99v55v99v56n p
y16rtoEnum fv99v55v99v56n p
= y17rtoEnum fv99v55v99v56n p
y17rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (17))))
(h99v55v99v56n p)
(y18rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p OtherPunctuation
aOtherPunctuation
h99v55v99v56n p = y18rtoEnum fv99v55v99v56n p
y17rtoEnum fv99v55v99v56n p
= y18rtoEnum fv99v55v99v56n p
y18rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (18))))
(h99v55v99v56n p)
(y19rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p MathSymbol aMathSymbol
h99v55v99v56n p = y19rtoEnum fv99v55v99v56n p
y18rtoEnum fv99v55v99v56n p
= y19rtoEnum fv99v55v99v56n p
y19rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (19))))
(h99v55v99v56n p)
(y20rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p CurrencySymbol
aCurrencySymbol
h99v55v99v56n p = y20rtoEnum fv99v55v99v56n p
y19rtoEnum fv99v55v99v56n p
= y20rtoEnum fv99v55v99v56n p
y20rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (20))))
(h99v55v99v56n p)
(y21rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p ModifierSymbol
aModifierSymbol
h99v55v99v56n p = y21rtoEnum fv99v55v99v56n p
y20rtoEnum fv99v55v99v56n p
= y21rtoEnum fv99v55v99v56n p
y21rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (21))))
(h99v55v99v56n p)
(y22rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p OtherSymbol
aOtherSymbol
h99v55v99v56n p = y22rtoEnum fv99v55v99v56n p
y21rtoEnum fv99v55v99v56n p
= y22rtoEnum fv99v55v99v56n p
y22rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (22))))
(h99v55v99v56n p)
(y23rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p Space aSpace
h99v55v99v56n p = y23rtoEnum fv99v55v99v56n p
y22rtoEnum fv99v55v99v56n p
= y23rtoEnum fv99v55v99v56n p
y23rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (23))))
(h99v55v99v56n p)
(y24rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p LineSeparator
aLineSeparator
h99v55v99v56n p = y24rtoEnum fv99v55v99v56n p
y23rtoEnum fv99v55v99v56n p
= y24rtoEnum fv99v55v99v56n p
y24rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (24))))
(h99v55v99v56n p)
(y25rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p ParagraphSeparator
aParagraphSeparator
h99v55v99v56n p = y25rtoEnum fv99v55v99v56n p
y24rtoEnum fv99v55v99v56n p
= y25rtoEnum fv99v55v99v56n p
y25rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (25))))
(h99v55v99v56n p)
(y26rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p Control aControl
h99v55v99v56n p = y26rtoEnum fv99v55v99v56n p
y25rtoEnum fv99v55v99v56n p
= y26rtoEnum fv99v55v99v56n p
y26rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (26))))
(h99v55v99v56n p)
(y27rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p Format aFormat
h99v55v99v56n p = y27rtoEnum fv99v55v99v56n p
y26rtoEnum fv99v55v99v56n p
= y27rtoEnum fv99v55v99v56n p
y27rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (27))))
(h99v55v99v56n p)
(y28rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p Surrogate aSurrogate
h99v55v99v56n p = y28rtoEnum fv99v55v99v56n p
y27rtoEnum fv99v55v99v56n p
= y28rtoEnum fv99v55v99v56n p
y28rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (28))))
(h99v55v99v56n p)
(y29rtoEnum fv99v55v99v56n p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p PrivateUse aPrivateUse
h99v55v99v56n p = y29rtoEnum fv99v55v99v56n p
y28rtoEnum fv99v55v99v56n p
= y29rtoEnum fv99v55v99v56n p
y29rtoEnum fv99v55v99v56n p
= T.ucguard
(T.uap2 T.mkNoSrcPos p
((Hat.PreludeBasic.!==) T.mkNoSrcPos p)
fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
p)
(T.conInteger T.mkNoSrcPos p (29))))
(h99v55v99v56n p)
(T.fatal p)
where h99v55v99v56n p
= T.con0 T.mkNoSrcPos p NotAssigned
aNotAssigned
h99v55v99v56n p = T.fatal p
y29rtoEnum _ p = T.fatal p
grfromEnum ::
T.RefSrcPos ->
T.RefExp -> T.R (T.Fun GeneralCategory Int)
hrfromEnum ::
T.R GeneralCategory -> T.RefExp -> T.R Int
grfromEnum prfromEnum p
= T.ufun1 c99v55v99v56rfromEnum prfromEnum p
hrfromEnum
arfromEnum = c99v55v99v56rfromEnum
hrfromEnum (T.R UppercaseLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (0))
hrfromEnum (T.R LowercaseLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (1))
hrfromEnum (T.R TitlecaseLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (2))
hrfromEnum (T.R ModifierLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (3))
hrfromEnum (T.R OtherLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (4))
hrfromEnum (T.R NonSpacingMark _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (5))
hrfromEnum (T.R SpacingCombiningMark _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (6))
hrfromEnum (T.R EnclosingMark _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (7))
hrfromEnum (T.R DecimalNumber _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (8))
hrfromEnum (T.R LetterNumber _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (9))
hrfromEnum (T.R OtherNumber _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (10))
hrfromEnum (T.R ConnectorPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (11))
hrfromEnum (T.R DashPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (12))
hrfromEnum (T.R OpenPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (13))
hrfromEnum (T.R ClosePunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (14))
hrfromEnum (T.R InitialQuote _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (15))
hrfromEnum (T.R FinalQuote _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (16))
hrfromEnum (T.R OtherPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (17))
hrfromEnum (T.R MathSymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (18))
hrfromEnum (T.R CurrencySymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (19))
hrfromEnum (T.R ModifierSymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (20))
hrfromEnum (T.R OtherSymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (21))
hrfromEnum (T.R Space _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (22))
hrfromEnum (T.R LineSeparator _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (23))
hrfromEnum (T.R ParagraphSeparator _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (24))
hrfromEnum (T.R Control _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (25))
hrfromEnum (T.R Format _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (26))
hrfromEnum (T.R Surrogate _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (27))
hrfromEnum (T.R PrivateUse _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (28))
hrfromEnum (T.R NotAssigned _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (29))
hrfromEnum _ p = T.fatal p
gindex pindex p
= T.ufun2 c99v55v99v56index pindex p hindex
where hindex (T.R (T.Tuple2 fy1 fy2) _) fy3 p
= T.uap2 T.mkNoSrcPos p ((!-) T.mkNoSrcPos p)
(T.uwrapForward p (hifromEnum fy3 p))
(T.uwrapForward p (hifromEnum fy2 p))
where
gifromEnum ::
T.RefSrcPos ->
T.RefExp -> T.R (T.Fun GeneralCategory Int)
hifromEnum ::
T.R GeneralCategory -> T.RefExp -> T.R Int
gifromEnum pifromEnum p
= T.ufun1 c99v55v99v56ifromEnum pifromEnum p
hifromEnum
aifromEnum = c99v55v99v56ifromEnum
hifromEnum (T.R UppercaseLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (0))
hifromEnum (T.R LowercaseLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (1))
hifromEnum (T.R TitlecaseLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (2))
hifromEnum (T.R ModifierLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (3))
hifromEnum (T.R OtherLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (4))
hifromEnum (T.R NonSpacingMark _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (5))
hifromEnum (T.R SpacingCombiningMark _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (6))
hifromEnum (T.R EnclosingMark _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (7))
hifromEnum (T.R DecimalNumber _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (8))
hifromEnum (T.R LetterNumber _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (9))
hifromEnum (T.R OtherNumber _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (10))
hifromEnum (T.R ConnectorPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (11))
hifromEnum (T.R DashPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (12))
hifromEnum (T.R OpenPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (13))
hifromEnum (T.R ClosePunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (14))
hifromEnum (T.R InitialQuote _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (15))
hifromEnum (T.R FinalQuote _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (16))
hifromEnum (T.R OtherPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (17))
hifromEnum (T.R MathSymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (18))
hifromEnum (T.R CurrencySymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (19))
hifromEnum (T.R ModifierSymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (20))
hifromEnum (T.R OtherSymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (21))
hifromEnum (T.R Space _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (22))
hifromEnum (T.R LineSeparator _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (23))
hifromEnum (T.R ParagraphSeparator _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (24))
hifromEnum (T.R Control _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (25))
hifromEnum (T.R Format _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (26))
hifromEnum (T.R Surrogate _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (27))
hifromEnum (T.R PrivateUse _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (28))
hifromEnum (T.R NotAssigned _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (29))
hifromEnum _ p = T.fatal p
ginRange pinRange p
= T.ufun2 c99v55v99v56inRange pinRange p hinRange
where hinRange (T.R (T.Tuple2 fy1 fy2) _) fy3 p
= T.uap2 T.mkNoSrcPos p (ginRange T.mkNoSrcPos p)
(T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
(T.uwrapForward p (hnfromEnum fy1 p))
(T.uwrapForward p (hnfromEnum fy2 p)))
(T.uwrapForward p (hnfromEnum fy3 p))
where
gnfromEnum ::
T.RefSrcPos ->
T.RefExp -> T.R (T.Fun GeneralCategory Int)
hnfromEnum ::
T.R GeneralCategory -> T.RefExp -> T.R Int
gnfromEnum pnfromEnum p
= T.ufun1 c99v55v99v56nfromEnum pnfromEnum p
hnfromEnum
anfromEnum = c99v55v99v56nfromEnum
hnfromEnum (T.R UppercaseLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (0))
hnfromEnum (T.R LowercaseLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (1))
hnfromEnum (T.R TitlecaseLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (2))
hnfromEnum (T.R ModifierLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (3))
hnfromEnum (T.R OtherLetter _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (4))
hnfromEnum (T.R NonSpacingMark _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (5))
hnfromEnum (T.R SpacingCombiningMark _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (6))
hnfromEnum (T.R EnclosingMark _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (7))
hnfromEnum (T.R DecimalNumber _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (8))
hnfromEnum (T.R LetterNumber _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (9))
hnfromEnum (T.R OtherNumber _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (10))
hnfromEnum (T.R ConnectorPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (11))
hnfromEnum (T.R DashPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (12))
hnfromEnum (T.R OpenPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (13))
hnfromEnum (T.R ClosePunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (14))
hnfromEnum (T.R InitialQuote _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (15))
hnfromEnum (T.R FinalQuote _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (16))
hnfromEnum (T.R OtherPunctuation _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (17))
hnfromEnum (T.R MathSymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (18))
hnfromEnum (T.R CurrencySymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (19))
hnfromEnum (T.R ModifierSymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (20))
hnfromEnum (T.R OtherSymbol _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (21))
hnfromEnum (T.R Space _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (22))
hnfromEnum (T.R LineSeparator _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (23))
hnfromEnum (T.R ParagraphSeparator _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (24))
hnfromEnum (T.R Control _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (25))
hnfromEnum (T.R Format _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (26))
hnfromEnum (T.R Surrogate _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (27))
hnfromEnum (T.R PrivateUse _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (28))
hnfromEnum (T.R NotAssigned _) p
= T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p (29))
hnfromEnum _ p = T.fatal p
ggenCat ::
T.RefSrcPos -> T.RefExp -> T.R (T.Fun Int Int)
ggenCat pgenCat p = T.ufun1 agenCat pgenCat p hgenCat
hgenCat z1genCat kgenCat
= T.fromInt kgenCat
((\_ i -> Prelude.fromEnum (Data.Char.generalCategory (Prelude.toEnum i))) Prelude.True
(T.toInt kgenCat z1genCat))
ggeneralCategory ::
T.RefSrcPos ->
T.RefExp -> T.R (T.Fun Char GeneralCategory)
hgeneralCategory ::
T.R Char -> T.RefExp -> T.R GeneralCategory
ggeneralCategory pgeneralCategory p
= T.ufun1 ageneralCategory pgeneralCategory p
hgeneralCategory
hgeneralCategory fc p
= T.uwrapForward p
((*$) (gtoEnum T.mkNoSrcPos p)
(T.uwrapForward p
((*$) (ggenCat T.mkNoSrcPos p)
(T.uap1 T.mkNoSrcPos p (gord T.mkNoSrcPos p) fc)
p))
p)
aClosePunctuation
= T.mkConstructor tChar 830011 830026 3 (0)
"ClosePunctuation"
aConnectorPunctuation
= T.mkConstructor tChar 800011 800030 3 (0)
"ConnectorPunctuation"
aControl
= T.mkConstructor tChar 940011 940017 3 (0) "Control"
aCurrencySymbol
= T.mkConstructor tChar 880011 880024 3 (0)
"CurrencySymbol"
aDashPunctuation
= T.mkConstructor tChar 810011 810025 3 (0)
"DashPunctuation"
aDecimalNumber
= T.mkConstructor tChar 770011 770023 3 (0)
"DecimalNumber"
aEnclosingMark
= T.mkConstructor tChar 760011 760023 3 (0)
"EnclosingMark"
aFinalQuote
= T.mkConstructor tChar 850011 850020 3 (0)
"FinalQuote"
aFormat
= T.mkConstructor tChar 950011 950016 3 (0) "Format"
aInitialQuote
= T.mkConstructor tChar 840011 840022 3 (0)
"InitialQuote"
aLetterNumber
= T.mkConstructor tChar 780011 780022 3 (0)
"LetterNumber"
aLineSeparator
= T.mkConstructor tChar 920011 920023 3 (0)
"LineSeparator"
aLowercaseLetter
= T.mkConstructor tChar 700011 700025 3 (0)
"LowercaseLetter"
aMathSymbol
= T.mkConstructor tChar 870011 870020 3 (0)
"MathSymbol"
aModifierLetter
= T.mkConstructor tChar 720011 720024 3 (0)
"ModifierLetter"
aModifierSymbol
= T.mkConstructor tChar 890011 890024 3 (0)
"ModifierSymbol"
aNonSpacingMark
= T.mkConstructor tChar 740011 740024 3 (0)
"NonSpacingMark"
aNotAssigned
= T.mkConstructor tChar 980011 980021 3 (0)
"NotAssigned"
aOpenPunctuation
= T.mkConstructor tChar 820011 820025 3 (0)
"OpenPunctuation"
aOtherLetter
= T.mkConstructor tChar 730011 730021 3 (0)
"OtherLetter"
aOtherNumber
= T.mkConstructor tChar 790011 790021 3 (0)
"OtherNumber"
aOtherPunctuation
= T.mkConstructor tChar 860011 860026 3 (0)
"OtherPunctuation"
aOtherSymbol
= T.mkConstructor tChar 900011 900021 3 (0)
"OtherSymbol"
aParagraphSeparator
= T.mkConstructor tChar 930011 930028 3 (0)
"ParagraphSeparator"
aPrivateUse
= T.mkConstructor tChar 970011 970020 3 (0)
"PrivateUse"
aSpace
= T.mkConstructor tChar 910011 910015 3 (0) "Space"
aSpacingCombiningMark
= T.mkConstructor tChar 750011 750030 3 (0)
"SpacingCombiningMark"
aSurrogate
= T.mkConstructor tChar 960011 960019 3 (0)
"Surrogate"
aTitlecaseLetter
= T.mkConstructor tChar 710011 710025 3 (0)
"TitlecaseLetter"
aUppercaseLetter
= T.mkConstructor tChar 690011 690025 3 (0)
"UppercaseLetter"
agenCat
= T.mkVariable tChar 1010001 1030011 3 (1) "genCat"
Prelude.False
ageneralCategory
= T.mkVariable tChar 1060001 1060043 3 (1)
"generalCategory"
Prelude.False
aisAsciiLower
= T.mkVariable tChar 620001 630017 3 (1)
"isAsciiLower"
Prelude.False
aisAsciiUpper
= T.mkVariable tChar 600001 610017 3 (1)
"isAsciiUpper"
Prelude.False
aisLetter
= T.mkVariable tChar 480001 490013 3 (1) "isLetter"
Prelude.False
aisMark
= T.mkVariable tChar 500001 510011 3 (1) "isMark"
Prelude.False
aisNumber
= T.mkVariable tChar 520001 530013 3 (1) "isNumber"
Prelude.False
aisPunctuation
= T.mkVariable tChar 540001 550018 3 (1)
"isPunctuation"
Prelude.False
aisSeparator
= T.mkVariable tChar 580001 590016 3 (1)
"isSeparator"
Prelude.False
aisSymbol
= T.mkVariable tChar 560001 570013 3 (1) "isSymbol"
Prelude.False
atoTitle
= T.mkVariable tChar 650001 660012 3 (1) "toTitle"
Prelude.False
(+>>=#>=>>=$!==)
= T.mkVariable tChar 990019 990020 3 (1) "=="
Prelude.False
c99v23v99v25localFromEnum
= T.mkVariable tChar 990023 990025 3 (1)
"localFromEnum"
Prelude.True
c99v23v99v25compare
= T.mkVariable tChar 990023 990025 3 (1) "compare"
Prelude.False
c99v28v99v31enumFrom
= T.mkVariable tChar 990028 990031 3 (1) "enumFrom"
Prelude.False
c99v28v99v31enumFromThen
= T.mkVariable tChar 990028 990031 3 (1)
"enumFromThen"
Prelude.False
c99v28v99v31fromEnum
= T.mkVariable tChar 990028 990031 3 (1) "fromEnum"
Prelude.False
c99v28v99v31toEnum
= T.mkVariable tChar 990028 990031 3 (1) "toEnum"
Prelude.False
c99v34v99v37readsPrec
= T.mkVariable tChar 990034 990037 3 (1) "readsPrec"
Prelude.False
c99v40v99v43showsPrec
= T.mkVariable tChar 990040 990043 3 (1) "showsPrec"
Prelude.False
c99v46v99v52maxBound
= T.mkVariable tChar 990046 990052 3 (1) "maxBound"
Prelude.False
c99v46v99v52minBound
= T.mkVariable tChar 990046 990052 3 (1) "minBound"
Prelude.False
c99v55v99v56rfromEnum
= T.mkVariable tChar 990055 990056 3 (1) "rfromEnum"
Prelude.True
c99v55v99v56rtoEnum
= T.mkVariable tChar 990055 990056 3 (1) "rtoEnum"
Prelude.True
c99v55v99v56ifromEnum
= T.mkVariable tChar 990055 990056 3 (1) "ifromEnum"
Prelude.True
c99v55v99v56nfromEnum
= T.mkVariable tChar 990055 990056 3 (1) "nfromEnum"
Prelude.True
c99v55v99v56inRange
= T.mkVariable tChar 990055 990056 3 (1) "inRange"
Prelude.False
c99v55v99v56index
= T.mkVariable tChar 990055 990056 3 (1) "index"
Prelude.False
c99v55v99v56range
= T.mkVariable tChar 990055 990056 3 (1) "range"
Prelude.False
p = T.mkRoot
tChar
= T.mkModule "Data.Char" "Data/Char.hs" Prelude.False