[project @ 1997-05-26 05:37:13 by sof]

[ghc-hetmet.git] / ghc / compiler / tests / typecheck / should_succeed / tc069.stderr

diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc069.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc069.stderr
index df629a9..65df942 100644 (file)
--- a/ghc/compiler/tests/typecheck/should_succeed/tc069.stderr
+++ b/ghc/compiler/tests/typecheck/should_succeed/tc069.stderr
@@ -1,16 +1,31 @@
+
+
+--================================================================================
 Typechecked:
-AbsBinds [] [] [(x.t1, Main.x)]
-    {- nonrec -}
-    x.t1 :: Char
-    x.t1 = 'a'
-AbsBinds [] [] [(y.t4, Main.y), (ys.t5, Main.ys)]
-    {- nonrec -}
-    (y.t4 : ys.t5) :: [Char]
-    (y.t4 : ys.t5) = ['a', 'b', 'c'] (Char)
-     where
-       AbsBinds [] [] [(p.t8, p.r56)]
+{- nonrec -}
+{- nonrec -}
+AbsBinds [] [] [([], x{-r3i,x-}, x_an6)]
+    x_an6
+       =   'a'
+{- nonrec -}
+{- nonrec -}
+AbsBinds [] [] [([], y{-r3h,x-}, y_ana), ([], ys{-r3g,x-}, ys_anb)]
+    (y_ana PrelBase.:{-55,p-}{i} ys_anb)
+       =   ['a', 'b', 'c'] (PrelBase.Char{-38,p-})
+       where
            {- nonrec -}
-           p.t8 :: Char
-           p.t8 = Main.x
-       {- nonrec -}
-
+           AbsBinds [] [] [([], p_r3f, p_anj)]
+               p_anj
+                   =   x{-r3i,x-}
+           {- nonrec -}
+{- nonrec -}
+ghc: module version changed to 1; reason: no old .hi file
+_interface_ ShouldSucceed 1
+_instance_modules_
+ArrBase IO PrelNum
+_exports_
+ShouldSucceed x y ys;
+_declarations_
+1 x _:_ PrelBase.Char ;;
+1 y _:_ PrelBase.Char ;;
+1 ys _:_ [PrelBase.Char] ;;