c,
cs
#) = readNext failInp
- in if ('a' GHC.Classes.==) c
+ in if (GHC.Classes.==) 'a' c
then
let readFail = finalRaise
in let !(#
c,
cs
#) = readNext cs
- in if ('b' GHC.Classes.==) c
+ in if (GHC.Classes.==) 'b' c
then
let _ = "resume"
in join
farInp
farExp
( let _ = "resume.genCode"
- in 'a' GHC.Types.: ('b' GHC.Types.: GHC.Types . [])
+ in (GHC.Types.:) 'a' ((GHC.Types.:) 'b' GHC.Types . [])
)
cs
else
in if readMore (Symantic.Parser.Machine.Input.shiftRightText 1 init)
then
let !(# c, cs #) = readNext init
- in if ('a' GHC.Classes.==) c
+ in if (GHC.Classes.==) 'a' c
then
let readFail = readFail
in let !(# c, cs #) = readNext cs
- in if ('a' GHC.Classes.==) c
+ in if (GHC.Classes.==) 'a' c
then
let _ = "resume"
in join
init
Data.Set.Internal.empty
( let _ = "resume.genCode"
- in 'a' GHC.Types.: ('a' GHC.Types.: GHC.Types . [])
+ in (GHC.Types.:) 'a' ((GHC.Types.:) 'a' GHC.Types . [])
)
cs
else