hat-2.7.0.1: Hat/Data/Char.hs
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 Hat.PreludeBasic
import qualified Prelude
import Hat.Hack
import qualified Hat.Hat as T
import Hat.Hat (WrapVal(wrapVal))
import Hat.Prelude
import Hat.PreludeBasic
import Hat.Ix
import Hat.PreludeBuiltinTypes
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 =
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 =
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 =
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 =
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 =
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 =
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 =
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 =
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.Prelude.True Hat.Prelude.aTrue
(*==) (T.R LowercaseLetter _) (T.R LowercaseLetter _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R TitlecaseLetter _) (T.R TitlecaseLetter _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R ModifierLetter _) (T.R ModifierLetter _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R OtherLetter _) (T.R OtherLetter _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R NonSpacingMark _) (T.R NonSpacingMark _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R SpacingCombiningMark _) (T.R SpacingCombiningMark _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R EnclosingMark _) (T.R EnclosingMark _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R DecimalNumber _) (T.R DecimalNumber _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R LetterNumber _) (T.R LetterNumber _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R OtherNumber _) (T.R OtherNumber _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R ConnectorPunctuation _) (T.R ConnectorPunctuation _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R DashPunctuation _) (T.R DashPunctuation _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R OpenPunctuation _) (T.R OpenPunctuation _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R ClosePunctuation _) (T.R ClosePunctuation _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R InitialQuote _) (T.R InitialQuote _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R FinalQuote _) (T.R FinalQuote _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R OtherPunctuation _) (T.R OtherPunctuation _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R MathSymbol _) (T.R MathSymbol _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R CurrencySymbol _) (T.R CurrencySymbol _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R ModifierSymbol _) (T.R ModifierSymbol _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R OtherSymbol _) (T.R OtherSymbol _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R Space _) (T.R Space _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R LineSeparator _) (T.R LineSeparator _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R ParagraphSeparator _) (T.R ParagraphSeparator _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R Control _) (T.R Control _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R Format _) (T.R Format _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R Surrogate _) (T.R Surrogate _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R PrivateUse _) (T.R PrivateUse _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) (T.R NotAssigned _) (T.R NotAssigned _) p =
T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue
(*==) _ _ p = T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse
instance Ord (GeneralCategory)
where
gcompare pcompare p =
T.ufun2 a99v23v99v25compare pcompare p hcompare
where
hcompare fy1 fy2 p =
T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p)
(T.uwrapForward p (hlocalFromEnum fy1 p) :: T.R Hat.Prelude.Int)
(T.uwrapForward p (hlocalFromEnum fy2 p))
where
glocalFromEnum plocalFromEnum p =
T.ufun1 a99v23v99v25localFromEnum plocalFromEnum p hlocalFromEnum
alocalFromEnum = a99v23v99v25localFromEnum
hlocalFromEnum (T.R (UppercaseLetter) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 0)
hlocalFromEnum (T.R (LowercaseLetter) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 1)
hlocalFromEnum (T.R (TitlecaseLetter) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 2)
hlocalFromEnum (T.R (ModifierLetter) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 3)
hlocalFromEnum (T.R (OtherLetter) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 4)
hlocalFromEnum (T.R (NonSpacingMark) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 5)
hlocalFromEnum (T.R (SpacingCombiningMark) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 6)
hlocalFromEnum (T.R (EnclosingMark) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 7)
hlocalFromEnum (T.R (DecimalNumber) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 8)
hlocalFromEnum (T.R (LetterNumber) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 9)
hlocalFromEnum (T.R (OtherNumber) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 10)
hlocalFromEnum (T.R (ConnectorPunctuation) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 11)
hlocalFromEnum (T.R (DashPunctuation) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 12)
hlocalFromEnum (T.R (OpenPunctuation) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 13)
hlocalFromEnum (T.R (ClosePunctuation) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 14)
hlocalFromEnum (T.R (InitialQuote) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 15)
hlocalFromEnum (T.R (FinalQuote) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 16)
hlocalFromEnum (T.R (OtherPunctuation) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 17)
hlocalFromEnum (T.R (MathSymbol) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 18)
hlocalFromEnum (T.R (CurrencySymbol) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 19)
hlocalFromEnum (T.R (ModifierSymbol) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 20)
hlocalFromEnum (T.R (OtherSymbol) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 21)
hlocalFromEnum (T.R (Space) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 22)
hlocalFromEnum (T.R (LineSeparator) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 23)
hlocalFromEnum (T.R (ParagraphSeparator) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 24)
hlocalFromEnum (T.R (Control) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 25)
hlocalFromEnum (T.R (Format) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 26)
hlocalFromEnum (T.R (Surrogate) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 27)
hlocalFromEnum (T.R (PrivateUse) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 28)
hlocalFromEnum (T.R (NotAssigned) _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 29)
hlocalFromEnum _ p = T.fatal p
instance Enum (GeneralCategory)
where
gfromEnum pfromEnum p =
T.ufun1 a99v28v99v31fromEnum 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 a99v28v99v31toEnum ptoEnum p htoEnum
where
htoEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 0))) (h p) (y1toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p UppercaseLetter aUppercaseLetter
h p = y1toEnum fv99v28v99v31n p
htoEnum fv99v28v99v31n p = y1toEnum fv99v28v99v31n p
y1toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 1))) (h p) (y2toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p LowercaseLetter aLowercaseLetter
h p = y2toEnum fv99v28v99v31n p
y1toEnum fv99v28v99v31n p = y2toEnum fv99v28v99v31n p
y2toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 2))) (h p) (y3toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p TitlecaseLetter aTitlecaseLetter
h p = y3toEnum fv99v28v99v31n p
y2toEnum fv99v28v99v31n p = y3toEnum fv99v28v99v31n p
y3toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 3))) (h p) (y4toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p ModifierLetter aModifierLetter
h p = y4toEnum fv99v28v99v31n p
y3toEnum fv99v28v99v31n p = y4toEnum fv99v28v99v31n p
y4toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 4))) (h p) (y5toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p OtherLetter aOtherLetter
h p = y5toEnum fv99v28v99v31n p
y4toEnum fv99v28v99v31n p = y5toEnum fv99v28v99v31n p
y5toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 5))) (h p) (y6toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p NonSpacingMark aNonSpacingMark
h p = y6toEnum fv99v28v99v31n p
y5toEnum fv99v28v99v31n p = y6toEnum fv99v28v99v31n p
y6toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 6))) (h p) (y7toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p SpacingCombiningMark aSpacingCombiningMark
h p = y7toEnum fv99v28v99v31n p
y6toEnum fv99v28v99v31n p = y7toEnum fv99v28v99v31n p
y7toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 7))) (h p) (y8toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p EnclosingMark aEnclosingMark
h p = y8toEnum fv99v28v99v31n p
y7toEnum fv99v28v99v31n p = y8toEnum fv99v28v99v31n p
y8toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 8))) (h p) (y9toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p DecimalNumber aDecimalNumber
h p = y9toEnum fv99v28v99v31n p
y8toEnum fv99v28v99v31n p = y9toEnum fv99v28v99v31n p
y9toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 9))) (h p) (y10toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p LetterNumber aLetterNumber
h p = y10toEnum fv99v28v99v31n p
y9toEnum fv99v28v99v31n p = y10toEnum fv99v28v99v31n p
y10toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 10))) (h p)
(y11toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p OtherNumber aOtherNumber
h p = y11toEnum fv99v28v99v31n p
y10toEnum fv99v28v99v31n p = y11toEnum fv99v28v99v31n p
y11toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 11))) (h p)
(y12toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p ConnectorPunctuation aConnectorPunctuation
h p = y12toEnum fv99v28v99v31n p
y11toEnum fv99v28v99v31n p = y12toEnum fv99v28v99v31n p
y12toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 12))) (h p)
(y13toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p DashPunctuation aDashPunctuation
h p = y13toEnum fv99v28v99v31n p
y12toEnum fv99v28v99v31n p = y13toEnum fv99v28v99v31n p
y13toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 13))) (h p)
(y14toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p OpenPunctuation aOpenPunctuation
h p = y14toEnum fv99v28v99v31n p
y13toEnum fv99v28v99v31n p = y14toEnum fv99v28v99v31n p
y14toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 14))) (h p)
(y15toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p ClosePunctuation aClosePunctuation
h p = y15toEnum fv99v28v99v31n p
y14toEnum fv99v28v99v31n p = y15toEnum fv99v28v99v31n p
y15toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 15))) (h p)
(y16toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p InitialQuote aInitialQuote
h p = y16toEnum fv99v28v99v31n p
y15toEnum fv99v28v99v31n p = y16toEnum fv99v28v99v31n p
y16toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 16))) (h p)
(y17toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p FinalQuote aFinalQuote
h p = y17toEnum fv99v28v99v31n p
y16toEnum fv99v28v99v31n p = y17toEnum fv99v28v99v31n p
y17toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 17))) (h p)
(y18toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p OtherPunctuation aOtherPunctuation
h p = y18toEnum fv99v28v99v31n p
y17toEnum fv99v28v99v31n p = y18toEnum fv99v28v99v31n p
y18toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 18))) (h p)
(y19toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p MathSymbol aMathSymbol
h p = y19toEnum fv99v28v99v31n p
y18toEnum fv99v28v99v31n p = y19toEnum fv99v28v99v31n p
y19toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 19))) (h p)
(y20toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p CurrencySymbol aCurrencySymbol
h p = y20toEnum fv99v28v99v31n p
y19toEnum fv99v28v99v31n p = y20toEnum fv99v28v99v31n p
y20toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 20))) (h p)
(y21toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p ModifierSymbol aModifierSymbol
h p = y21toEnum fv99v28v99v31n p
y20toEnum fv99v28v99v31n p = y21toEnum fv99v28v99v31n p
y21toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 21))) (h p)
(y22toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p OtherSymbol aOtherSymbol
h p = y22toEnum fv99v28v99v31n p
y21toEnum fv99v28v99v31n p = y22toEnum fv99v28v99v31n p
y22toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 22))) (h p)
(y23toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p Space aSpace
h p = y23toEnum fv99v28v99v31n p
y22toEnum fv99v28v99v31n p = y23toEnum fv99v28v99v31n p
y23toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 23))) (h p)
(y24toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p LineSeparator aLineSeparator
h p = y24toEnum fv99v28v99v31n p
y23toEnum fv99v28v99v31n p = y24toEnum fv99v28v99v31n p
y24toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 24))) (h p)
(y25toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p ParagraphSeparator aParagraphSeparator
h p = y25toEnum fv99v28v99v31n p
y24toEnum fv99v28v99v31n p = y25toEnum fv99v28v99v31n p
y25toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 25))) (h p)
(y26toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p Control aControl
h p = y26toEnum fv99v28v99v31n p
y25toEnum fv99v28v99v31n p = y26toEnum fv99v28v99v31n p
y26toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 26))) (h p)
(y27toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p Format aFormat
h p = y27toEnum fv99v28v99v31n p
y26toEnum fv99v28v99v31n p = y27toEnum fv99v28v99v31n p
y27toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 27))) (h p)
(y28toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p Surrogate aSurrogate
h p = y28toEnum fv99v28v99v31n p
y27toEnum fv99v28v99v31n p = y28toEnum fv99v28v99v31n p
y28toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 28))) (h p)
(y29toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p PrivateUse aPrivateUse
h p = y29toEnum fv99v28v99v31n p
y28toEnum fv99v28v99v31n p = y29toEnum fv99v28v99v31n p
y29toEnum fv99v28v99v31n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v28v99v31n
(T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 29))) (h p)
(y30toEnum fv99v28v99v31n p)
where
h p = T.con0 T.mkNoSrcPos p NotAssigned aNotAssigned
h p = y30toEnum fv99v28v99v31n p
y29toEnum fv99v28v99v31n p = y30toEnum fv99v28v99v31n p
y30toEnum _ p =
T.uwrapForward p
(Hat.Prelude.herror
(T.fromLitString T.mkNoSrcPos p "toEnum: argument out of bounds") p)
genumFrom penumFrom p =
T.ufun1 a99v28v99v31enumFrom penumFrom p henumFrom
where
henumFrom fy1 p =
T.uap2 T.mkNoSrcPos p (Hat.Prelude.genumFromTo T.mkNoSrcPos p) fy1
(T.con0 T.mkNoSrcPos p NotAssigned aNotAssigned)
genumFromThen penumFromThen p =
T.ufun2 a99v28v99v31enumFromThen penumFromThen p henumFromThen
where
henumFromThen fy1 fy2 p =
T.uap3 T.mkNoSrcPos p (Hat.Prelude.genumFromThenTo T.mkNoSrcPos p) fy1 fy2
(T.ucif p
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!>= p)
(T.uap1 T.mkNoSrcPos p (Hat.Prelude.gfromEnum T.mkNoSrcPos p) fy1)
(T.uap1 T.mkNoSrcPos p (Hat.Prelude.gfromEnum T.mkNoSrcPos p) fy2))
(T.con0 T.mkNoSrcPos p NotAssigned aNotAssigned)
(T.con0 T.mkNoSrcPos p UppercaseLetter aUppercaseLetter))
instance Read (GeneralCategory)
where
greadsPrec preadsPrec p =
T.ufun1 a99v34v99v37readsPrec preadsPrec p hreadsPrec
where
hreadsPrec fy1 p =
T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p)
(T.uwrapForward p
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p
Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p
Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p
Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p
Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p
Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p
Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p
Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p
Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos p
Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0 T.mkNoSrcPos
p
Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0
T.mkNoSrcPos p
Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0
T.mkNoSrcPos p
Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.Prelude.False
Hat.Prelude.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
(Hat.Prelude.hreadParen
(T.con0
T.mkNoSrcPos
p
Hat.Prelude.False
Hat.Prelude.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 a99v40v99v43showsPrec pshowsPrec p hshowsPrec
where
hshowsPrec fy1 (T.R (UppercaseLetter) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "UppercaseLetter")
hshowsPrec fy1 (T.R (LowercaseLetter) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "LowercaseLetter")
hshowsPrec fy1 (T.R (TitlecaseLetter) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "TitlecaseLetter")
hshowsPrec fy1 (T.R (ModifierLetter) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "ModifierLetter")
hshowsPrec fy1 (T.R (OtherLetter) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "OtherLetter")
hshowsPrec fy1 (T.R (NonSpacingMark) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "NonSpacingMark")
hshowsPrec fy1 (T.R (SpacingCombiningMark) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "SpacingCombiningMark")
hshowsPrec fy1 (T.R (EnclosingMark) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "EnclosingMark")
hshowsPrec fy1 (T.R (DecimalNumber) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "DecimalNumber")
hshowsPrec fy1 (T.R (LetterNumber) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "LetterNumber")
hshowsPrec fy1 (T.R (OtherNumber) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "OtherNumber")
hshowsPrec fy1 (T.R (ConnectorPunctuation) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "ConnectorPunctuation")
hshowsPrec fy1 (T.R (DashPunctuation) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "DashPunctuation")
hshowsPrec fy1 (T.R (OpenPunctuation) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "OpenPunctuation")
hshowsPrec fy1 (T.R (ClosePunctuation) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "ClosePunctuation")
hshowsPrec fy1 (T.R (InitialQuote) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "InitialQuote")
hshowsPrec fy1 (T.R (FinalQuote) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "FinalQuote")
hshowsPrec fy1 (T.R (OtherPunctuation) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "OtherPunctuation")
hshowsPrec fy1 (T.R (MathSymbol) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "MathSymbol")
hshowsPrec fy1 (T.R (CurrencySymbol) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "CurrencySymbol")
hshowsPrec fy1 (T.R (ModifierSymbol) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "ModifierSymbol")
hshowsPrec fy1 (T.R (OtherSymbol) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "OtherSymbol")
hshowsPrec fy1 (T.R (Space) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "Space")
hshowsPrec fy1 (T.R (LineSeparator) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "LineSeparator")
hshowsPrec fy1 (T.R (ParagraphSeparator) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "ParagraphSeparator")
hshowsPrec fy1 (T.R (Control) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "Control")
hshowsPrec fy1 (T.R (Format) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "Format")
hshowsPrec fy1 (T.R (Surrogate) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "Surrogate")
hshowsPrec fy1 (T.R (PrivateUse) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p)
(T.fromLitString T.mkNoSrcPos p "PrivateUse")
hshowsPrec fy1 (T.R (NotAssigned) _) p =
T.uap1 T.mkNoSrcPos p (Hat.Prelude.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 T.mkRoot a99v46v99v52minBound
(\ p -> T.con0 T.mkNoSrcPos p UppercaseLetter aUppercaseLetter)
gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
smaxBound =
T.uconstDef T.mkRoot a99v46v99v52maxBound
(\ p -> T.con0 T.mkNoSrcPos p NotAssigned aNotAssigned)
instance Ix (GeneralCategory)
where
grange prange p =
T.ufun1 a99v55v99v56range prange p hrange
where
hrange (T.R (T.Tuple2 fy1 fy2) _) p =
T.uwrapForward p
(Hat.PreludeBasic.hmap (glocalToEnum T.mkNoSrcPos p)
(T.uap2 T.mkNoSrcPos p (Hat.Prelude.genumFromTo T.mkNoSrcPos p)
(T.uwrapForward p (hlocalFromEnum fy1 p))
(T.uwrapForward p (hlocalFromEnum fy2 p))) p)
where
glocalToEnum ::
T.RefSrcPos -> T.RefExp -> T.R (T.Fun Hat.Prelude.Int GeneralCategory)
hlocalToEnum :: (T.R Hat.Prelude.Int) -> T.RefExp -> T.R GeneralCategory
glocalToEnum plocalToEnum p =
T.ufun1 a99v55v99v56localToEnum plocalToEnum p hlocalToEnum
alocalToEnum = a99v55v99v56localToEnum
hlocalToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 0))) (h p)
(y1localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p UppercaseLetter aUppercaseLetter
h p = y1localToEnum fv99v55v99v56n p
hlocalToEnum fv99v55v99v56n p = y1localToEnum fv99v55v99v56n p
y1localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 1))) (h p)
(y2localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p LowercaseLetter aLowercaseLetter
h p = y2localToEnum fv99v55v99v56n p
y1localToEnum fv99v55v99v56n p = y2localToEnum fv99v55v99v56n p
y2localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 2))) (h p)
(y3localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p TitlecaseLetter aTitlecaseLetter
h p = y3localToEnum fv99v55v99v56n p
y2localToEnum fv99v55v99v56n p = y3localToEnum fv99v55v99v56n p
y3localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 3))) (h p)
(y4localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p ModifierLetter aModifierLetter
h p = y4localToEnum fv99v55v99v56n p
y3localToEnum fv99v55v99v56n p = y4localToEnum fv99v55v99v56n p
y4localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 4))) (h p)
(y5localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p OtherLetter aOtherLetter
h p = y5localToEnum fv99v55v99v56n p
y4localToEnum fv99v55v99v56n p = y5localToEnum fv99v55v99v56n p
y5localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 5))) (h p)
(y6localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p NonSpacingMark aNonSpacingMark
h p = y6localToEnum fv99v55v99v56n p
y5localToEnum fv99v55v99v56n p = y6localToEnum fv99v55v99v56n p
y6localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 6))) (h p)
(y7localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p SpacingCombiningMark aSpacingCombiningMark
h p = y7localToEnum fv99v55v99v56n p
y6localToEnum fv99v55v99v56n p = y7localToEnum fv99v55v99v56n p
y7localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 7))) (h p)
(y8localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p EnclosingMark aEnclosingMark
h p = y8localToEnum fv99v55v99v56n p
y7localToEnum fv99v55v99v56n p = y8localToEnum fv99v55v99v56n p
y8localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 8))) (h p)
(y9localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p DecimalNumber aDecimalNumber
h p = y9localToEnum fv99v55v99v56n p
y8localToEnum fv99v55v99v56n p = y9localToEnum fv99v55v99v56n p
y9localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 9))) (h p)
(y10localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p LetterNumber aLetterNumber
h p = y10localToEnum fv99v55v99v56n p
y9localToEnum fv99v55v99v56n p = y10localToEnum fv99v55v99v56n p
y10localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 10))) (h p)
(y11localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p OtherNumber aOtherNumber
h p = y11localToEnum fv99v55v99v56n p
y10localToEnum fv99v55v99v56n p = y11localToEnum fv99v55v99v56n p
y11localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 11))) (h p)
(y12localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p ConnectorPunctuation aConnectorPunctuation
h p = y12localToEnum fv99v55v99v56n p
y11localToEnum fv99v55v99v56n p = y12localToEnum fv99v55v99v56n p
y12localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 12))) (h p)
(y13localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p DashPunctuation aDashPunctuation
h p = y13localToEnum fv99v55v99v56n p
y12localToEnum fv99v55v99v56n p = y13localToEnum fv99v55v99v56n p
y13localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 13))) (h p)
(y14localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p OpenPunctuation aOpenPunctuation
h p = y14localToEnum fv99v55v99v56n p
y13localToEnum fv99v55v99v56n p = y14localToEnum fv99v55v99v56n p
y14localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 14))) (h p)
(y15localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p ClosePunctuation aClosePunctuation
h p = y15localToEnum fv99v55v99v56n p
y14localToEnum fv99v55v99v56n p = y15localToEnum fv99v55v99v56n p
y15localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 15))) (h p)
(y16localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p InitialQuote aInitialQuote
h p = y16localToEnum fv99v55v99v56n p
y15localToEnum fv99v55v99v56n p = y16localToEnum fv99v55v99v56n p
y16localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 16))) (h p)
(y17localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p FinalQuote aFinalQuote
h p = y17localToEnum fv99v55v99v56n p
y16localToEnum fv99v55v99v56n p = y17localToEnum fv99v55v99v56n p
y17localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 17))) (h p)
(y18localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p OtherPunctuation aOtherPunctuation
h p = y18localToEnum fv99v55v99v56n p
y17localToEnum fv99v55v99v56n p = y18localToEnum fv99v55v99v56n p
y18localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 18))) (h p)
(y19localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p MathSymbol aMathSymbol
h p = y19localToEnum fv99v55v99v56n p
y18localToEnum fv99v55v99v56n p = y19localToEnum fv99v55v99v56n p
y19localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 19))) (h p)
(y20localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p CurrencySymbol aCurrencySymbol
h p = y20localToEnum fv99v55v99v56n p
y19localToEnum fv99v55v99v56n p = y20localToEnum fv99v55v99v56n p
y20localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 20))) (h p)
(y21localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p ModifierSymbol aModifierSymbol
h p = y21localToEnum fv99v55v99v56n p
y20localToEnum fv99v55v99v56n p = y21localToEnum fv99v55v99v56n p
y21localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 21))) (h p)
(y22localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p OtherSymbol aOtherSymbol
h p = y22localToEnum fv99v55v99v56n p
y21localToEnum fv99v55v99v56n p = y22localToEnum fv99v55v99v56n p
y22localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 22))) (h p)
(y23localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p Space aSpace
h p = y23localToEnum fv99v55v99v56n p
y22localToEnum fv99v55v99v56n p = y23localToEnum fv99v55v99v56n p
y23localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 23))) (h p)
(y24localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p LineSeparator aLineSeparator
h p = y24localToEnum fv99v55v99v56n p
y23localToEnum fv99v55v99v56n p = y24localToEnum fv99v55v99v56n p
y24localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 24))) (h p)
(y25localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p ParagraphSeparator aParagraphSeparator
h p = y25localToEnum fv99v55v99v56n p
y24localToEnum fv99v55v99v56n p = y25localToEnum fv99v55v99v56n p
y25localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 25))) (h p)
(y26localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p Control aControl
h p = y26localToEnum fv99v55v99v56n p
y25localToEnum fv99v55v99v56n p = y26localToEnum fv99v55v99v56n p
y26localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 26))) (h p)
(y27localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p Format aFormat
h p = y27localToEnum fv99v55v99v56n p
y26localToEnum fv99v55v99v56n p = y27localToEnum fv99v55v99v56n p
y27localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 27))) (h p)
(y28localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p Surrogate aSurrogate
h p = y28localToEnum fv99v55v99v56n p
y27localToEnum fv99v55v99v56n p = y28localToEnum fv99v55v99v56n p
y28localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 28))) (h p)
(y29localToEnum fv99v55v99v56n p)
where
h p = T.con0 T.mkNoSrcPos p PrivateUse aPrivateUse
h p = y29localToEnum fv99v55v99v56n p
y28localToEnum fv99v55v99v56n p = y29localToEnum fv99v55v99v56n p
y29localToEnum fv99v55v99v56n p =
T.ucguard
(T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv99v55v99v56n
(T.uap1 T.mkNoSrcPos p
(Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 29))) (h p) (T.fatal p)
where
h p = T.con0 T.mkNoSrcPos p NotAssigned aNotAssigned
h p = T.fatal p
y29localToEnum _ p = T.fatal p
glocalFromEnum ::
T.RefSrcPos -> T.RefExp -> T.R (T.Fun GeneralCategory Hat.Prelude.Int)
hlocalFromEnum :: (T.R GeneralCategory) -> T.RefExp -> T.R Hat.Prelude.Int
glocalFromEnum plocalFromEnum p =
T.ufun1 a99v55v99v56localFromEnum plocalFromEnum p hlocalFromEnum
alocalFromEnum = a99v55v99v56localFromEnum
hlocalFromEnum (T.R UppercaseLetter _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 0)
hlocalFromEnum (T.R LowercaseLetter _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 1)
hlocalFromEnum (T.R TitlecaseLetter _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 2)
hlocalFromEnum (T.R ModifierLetter _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 3)
hlocalFromEnum (T.R OtherLetter _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 4)
hlocalFromEnum (T.R NonSpacingMark _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 5)
hlocalFromEnum (T.R SpacingCombiningMark _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 6)
hlocalFromEnum (T.R EnclosingMark _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 7)
hlocalFromEnum (T.R DecimalNumber _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 8)
hlocalFromEnum (T.R LetterNumber _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 9)
hlocalFromEnum (T.R OtherNumber _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 10)
hlocalFromEnum (T.R ConnectorPunctuation _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 11)
hlocalFromEnum (T.R DashPunctuation _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 12)
hlocalFromEnum (T.R OpenPunctuation _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 13)
hlocalFromEnum (T.R ClosePunctuation _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 14)
hlocalFromEnum (T.R InitialQuote _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 15)
hlocalFromEnum (T.R FinalQuote _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 16)
hlocalFromEnum (T.R OtherPunctuation _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 17)
hlocalFromEnum (T.R MathSymbol _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 18)
hlocalFromEnum (T.R CurrencySymbol _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 19)
hlocalFromEnum (T.R ModifierSymbol _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 20)
hlocalFromEnum (T.R OtherSymbol _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 21)
hlocalFromEnum (T.R Space _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 22)
hlocalFromEnum (T.R LineSeparator _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 23)
hlocalFromEnum (T.R ParagraphSeparator _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 24)
hlocalFromEnum (T.R Control _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 25)
hlocalFromEnum (T.R Format _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 26)
hlocalFromEnum (T.R Surrogate _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 27)
hlocalFromEnum (T.R PrivateUse _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 28)
hlocalFromEnum (T.R NotAssigned _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 29)
hlocalFromEnum _ p = T.fatal p
hrange _ p = T.fatal p
gindex pindex p =
T.ufun2 a99v55v99v56index pindex p hindex
where
hindex (T.R (T.Tuple2 fy1 fy2) _) fy3 p =
T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!- p)
(T.uwrapForward p (hlocalFromEnum fy3 p))
(T.uwrapForward p (hlocalFromEnum fy1 p))
where
glocalFromEnum ::
T.RefSrcPos -> T.RefExp -> T.R (T.Fun GeneralCategory Hat.Prelude.Int)
hlocalFromEnum :: (T.R GeneralCategory) -> T.RefExp -> T.R Hat.Prelude.Int
glocalFromEnum plocalFromEnum p =
T.ufun1 a99v55v99v56localFromEnum plocalFromEnum p hlocalFromEnum
alocalFromEnum = a99v55v99v56localFromEnum
hlocalFromEnum (T.R UppercaseLetter _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 0)
hlocalFromEnum (T.R LowercaseLetter _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 1)
hlocalFromEnum (T.R TitlecaseLetter _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 2)
hlocalFromEnum (T.R ModifierLetter _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 3)
hlocalFromEnum (T.R OtherLetter _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 4)
hlocalFromEnum (T.R NonSpacingMark _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 5)
hlocalFromEnum (T.R SpacingCombiningMark _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 6)
hlocalFromEnum (T.R EnclosingMark _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 7)
hlocalFromEnum (T.R DecimalNumber _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 8)
hlocalFromEnum (T.R LetterNumber _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 9)
hlocalFromEnum (T.R OtherNumber _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 10)
hlocalFromEnum (T.R ConnectorPunctuation _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 11)
hlocalFromEnum (T.R DashPunctuation _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 12)
hlocalFromEnum (T.R OpenPunctuation _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 13)
hlocalFromEnum (T.R ClosePunctuation _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 14)
hlocalFromEnum (T.R InitialQuote _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 15)
hlocalFromEnum (T.R FinalQuote _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 16)
hlocalFromEnum (T.R OtherPunctuation _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 17)
hlocalFromEnum (T.R MathSymbol _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 18)
hlocalFromEnum (T.R CurrencySymbol _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 19)
hlocalFromEnum (T.R ModifierSymbol _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 20)
hlocalFromEnum (T.R OtherSymbol _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 21)
hlocalFromEnum (T.R Space _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 22)
hlocalFromEnum (T.R LineSeparator _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 23)
hlocalFromEnum (T.R ParagraphSeparator _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 24)
hlocalFromEnum (T.R Control _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 25)
hlocalFromEnum (T.R Format _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 26)
hlocalFromEnum (T.R Surrogate _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 27)
hlocalFromEnum (T.R PrivateUse _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 28)
hlocalFromEnum (T.R NotAssigned _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 29)
hlocalFromEnum _ p = T.fatal p
hindex _ _ p = T.fatal p
ginRange pinRange p =
T.ufun2 a99v55v99v56inRange pinRange p hinRange
where
hinRange (T.R (T.Tuple2 fy1 fy2) _) fy3 p =
T.uap2 T.mkNoSrcPos p (Hat.Ix.ginRange T.mkNoSrcPos p)
(T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
(T.uwrapForward p (hlocalFromEnum fy1 p))
(T.uwrapForward p (hlocalFromEnum fy2 p)))
(T.uwrapForward p (hlocalFromEnum fy3 p))
where
glocalFromEnum ::
T.RefSrcPos -> T.RefExp -> T.R (T.Fun GeneralCategory Hat.Prelude.Int)
hlocalFromEnum :: (T.R GeneralCategory) -> T.RefExp -> T.R Hat.Prelude.Int
glocalFromEnum plocalFromEnum p =
T.ufun1 a99v55v99v56localFromEnum plocalFromEnum p hlocalFromEnum
alocalFromEnum = a99v55v99v56localFromEnum
hlocalFromEnum (T.R UppercaseLetter _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 0)
hlocalFromEnum (T.R LowercaseLetter _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 1)
hlocalFromEnum (T.R TitlecaseLetter _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 2)
hlocalFromEnum (T.R ModifierLetter _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 3)
hlocalFromEnum (T.R OtherLetter _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 4)
hlocalFromEnum (T.R NonSpacingMark _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 5)
hlocalFromEnum (T.R SpacingCombiningMark _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 6)
hlocalFromEnum (T.R EnclosingMark _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 7)
hlocalFromEnum (T.R DecimalNumber _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 8)
hlocalFromEnum (T.R LetterNumber _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 9)
hlocalFromEnum (T.R OtherNumber _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 10)
hlocalFromEnum (T.R ConnectorPunctuation _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 11)
hlocalFromEnum (T.R DashPunctuation _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 12)
hlocalFromEnum (T.R OpenPunctuation _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 13)
hlocalFromEnum (T.R ClosePunctuation _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 14)
hlocalFromEnum (T.R InitialQuote _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 15)
hlocalFromEnum (T.R FinalQuote _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 16)
hlocalFromEnum (T.R OtherPunctuation _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 17)
hlocalFromEnum (T.R MathSymbol _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 18)
hlocalFromEnum (T.R CurrencySymbol _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 19)
hlocalFromEnum (T.R ModifierSymbol _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 20)
hlocalFromEnum (T.R OtherSymbol _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 21)
hlocalFromEnum (T.R Space _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 22)
hlocalFromEnum (T.R LineSeparator _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 23)
hlocalFromEnum (T.R ParagraphSeparator _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 24)
hlocalFromEnum (T.R Control _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 25)
hlocalFromEnum (T.R Format _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 26)
hlocalFromEnum (T.R Surrogate _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 27)
hlocalFromEnum (T.R PrivateUse _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 28)
hlocalFromEnum (T.R NotAssigned _) p =
T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
(T.conInteger T.mkNoSrcPos p 29)
hlocalFromEnum _ p = T.fatal p
hinRange _ _ 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)
tData_Char = T.mkModule "Data.Char" "Data/Char.hs" Prelude.False
aUppercaseLetter =
T.mkConstructor tData_Char 690011 690025 3 0 "UppercaseLetter"
aLowercaseLetter =
T.mkConstructor tData_Char 700011 700025 3 0 "LowercaseLetter"
aTitlecaseLetter =
T.mkConstructor tData_Char 710011 710025 3 0 "TitlecaseLetter"
aModifierLetter = T.mkConstructor tData_Char 720011 720024 3 0 "ModifierLetter"
aOtherLetter = T.mkConstructor tData_Char 730011 730021 3 0 "OtherLetter"
aNonSpacingMark = T.mkConstructor tData_Char 740011 740024 3 0 "NonSpacingMark"
aSpacingCombiningMark =
T.mkConstructor tData_Char 750011 750030 3 0 "SpacingCombiningMark"
aEnclosingMark = T.mkConstructor tData_Char 760011 760023 3 0 "EnclosingMark"
aDecimalNumber = T.mkConstructor tData_Char 770011 770023 3 0 "DecimalNumber"
aLetterNumber = T.mkConstructor tData_Char 780011 780022 3 0 "LetterNumber"
aOtherNumber = T.mkConstructor tData_Char 790011 790021 3 0 "OtherNumber"
aConnectorPunctuation =
T.mkConstructor tData_Char 800011 800030 3 0 "ConnectorPunctuation"
aDashPunctuation =
T.mkConstructor tData_Char 810011 810025 3 0 "DashPunctuation"
aOpenPunctuation =
T.mkConstructor tData_Char 820011 820025 3 0 "OpenPunctuation"
aClosePunctuation =
T.mkConstructor tData_Char 830011 830026 3 0 "ClosePunctuation"
aInitialQuote = T.mkConstructor tData_Char 840011 840022 3 0 "InitialQuote"
aFinalQuote = T.mkConstructor tData_Char 850011 850020 3 0 "FinalQuote"
aOtherPunctuation =
T.mkConstructor tData_Char 860011 860026 3 0 "OtherPunctuation"
aMathSymbol = T.mkConstructor tData_Char 870011 870020 3 0 "MathSymbol"
aCurrencySymbol = T.mkConstructor tData_Char 880011 880024 3 0 "CurrencySymbol"
aModifierSymbol = T.mkConstructor tData_Char 890011 890024 3 0 "ModifierSymbol"
aOtherSymbol = T.mkConstructor tData_Char 900011 900021 3 0 "OtherSymbol"
aSpace = T.mkConstructor tData_Char 910011 910015 3 0 "Space"
aLineSeparator = T.mkConstructor tData_Char 920011 920023 3 0 "LineSeparator"
aParagraphSeparator =
T.mkConstructor tData_Char 930011 930028 3 0 "ParagraphSeparator"
aControl = T.mkConstructor tData_Char 940011 940017 3 0 "Control"
aFormat = T.mkConstructor tData_Char 950011 950016 3 0 "Format"
aSurrogate = T.mkConstructor tData_Char 960011 960019 3 0 "Surrogate"
aPrivateUse = T.mkConstructor tData_Char 970011 970020 3 0 "PrivateUse"
aNotAssigned = T.mkConstructor tData_Char 980011 980021 3 0 "NotAssigned"
aisLetter = T.mkVariable tData_Char 480001 490026 3 1 "isLetter" Prelude.False
aisMark = T.mkVariable tData_Char 500001 510024 3 1 "isMark" Prelude.False
aisNumber = T.mkVariable tData_Char 520001 530026 3 1 "isNumber" Prelude.False
aisPunctuation =
T.mkVariable tData_Char 540001 550031 3 1 "isPunctuation" Prelude.False
aisSymbol = T.mkVariable tData_Char 560001 570026 3 1 "isSymbol" Prelude.False
aisSeparator =
T.mkVariable tData_Char 580001 590029 3 1 "isSeparator" Prelude.False
aisAsciiUpper =
T.mkVariable tData_Char 600001 610030 3 1 "isAsciiUpper" Prelude.False
aisAsciiLower =
T.mkVariable tData_Char 620001 630030 3 1 "isAsciiLower" Prelude.False
atoTitle = T.mkVariable tData_Char 650001 660025 3 1 "toTitle" Prelude.False
agenCat = T.mkVariable tData_Char 1010001 1030022 3 1 "genCat" Prelude.False
ageneralCategory =
T.mkVariable tData_Char 1060001 1060043 3 1 "generalCategory" Prelude.False
(+>>=#>=>>=$!==) = T.mkVariable tData_Char 990019 990020 3 2 "==" Prelude.False
a99v23v99v25compare =
T.mkVariable tData_Char 990023 990025 3 2 "compare" Prelude.False
a99v28v99v31fromEnum =
T.mkVariable tData_Char 990028 990031 3 1 "fromEnum" Prelude.False
a99v28v99v31toEnum =
T.mkVariable tData_Char 990028 990031 3 1 "toEnum" Prelude.False
a99v28v99v31enumFrom =
T.mkVariable tData_Char 990028 990031 3 1 "enumFrom" Prelude.False
a99v28v99v31enumFromThen =
T.mkVariable tData_Char 990028 990031 3 2 "enumFromThen" Prelude.False
a99v34v99v37readsPrec =
T.mkVariable tData_Char 990034 990037 3 1 "readsPrec" Prelude.False
a99v40v99v43showsPrec =
T.mkVariable tData_Char 990040 990043 3 2 "showsPrec" Prelude.False
a99v46v99v52minBound =
T.mkVariable tData_Char 990046 990052 3 0 "minBound" Prelude.False
a99v46v99v52maxBound =
T.mkVariable tData_Char 990046 990052 3 0 "maxBound" Prelude.False
a99v55v99v56range =
T.mkVariable tData_Char 990055 990056 3 1 "range" Prelude.False
a99v55v99v56index =
T.mkVariable tData_Char 990055 990056 3 2 "index" Prelude.False
a99v55v99v56inRange =
T.mkVariable tData_Char 990055 990056 3 2 "inRange" Prelude.False
a99v23v99v25localFromEnum =
T.mkVariable tData_Char 990023 990025 3 1 "localFromEnum" Prelude.True
a99v55v99v56localToEnum =
T.mkVariable tData_Char 990055 990056 3 1 "localToEnum" Prelude.True
a99v55v99v56localFromEnum =
T.mkVariable tData_Char 990055 990056 3 1 "localFromEnum" Prelude.True