rename Symantic.{Univariant => Typed}
[haskell/symantic-parser.git] / test / Golden / Splice / G6.expected.txt
index 63b6938f6283c6c17d1275ef352e0d0796689bc9..2ba7ee2dd08dcdc7d894b316dae81ef60ec69331 100644 (file)
                                                        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