X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftests%2Ftypecheck%2Fshould_succeed%2Ftc007.stderr;fp=ghc%2Fcompiler%2Ftests%2Ftypecheck%2Fshould_succeed%2Ftc007.stderr;h=dc81b95263f39651f9c43eaa69c496f6e793dafa;hb=4a48f32dfe4d85e07c3b83f1a3327f7ec4220947;hp=4563532ff8a3eed3404a82c42f5e02ecd3ee2941;hpb=e2656c348a1b84eaeef62df5877094aa948561ac;p=ghc-hetmet.git

diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc007.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc007.stderr
index 4563532..dc81b95 100644
--- a/ghc/compiler/tests/typecheck/should_succeed/tc007.stderr
+++ b/ghc/compiler/tests/typecheck/should_succeed/tc007.stderr
@@ -1,26 +1,65 @@
-Typechecked:
-d.Num.t24 = dfun.Num.Integer
-d.Num.t26 = dfun.Num.Integer
-fromInt.t23 = fromInt tt2 d.Num.t24
-lit.t3 = fromInt.t23 (MkInt 2#)
-fromInt.t25 = fromInt tt15 d.Num.t26
-lit.t10 = fromInt.t25 (MkInt 1#)
-fromInt.t27 = fromInt.t25
-lit.t16 = fromInt.t27 (MkInt 0#)
-d.Num.t28 = d.Num.t24
-(+.t21) = (+) tt2 d.Num.t28
-AbsBinds [] [] [(j.t1, ShouldSucceed.j)]
-    {- nonrec -}
-    j.t1 :: tt2
-    j.t1 = lit.t3
-AbsBinds [] [] [(k.t6, ShouldSucceed.k), (l.t7, ShouldSucceed.l)]
-    {- rec -}
-    k.t6 :: [tt15]
-    k.t6 = ((:) tt15) lit.t10 (((:) tt15) ShouldSucceed.j l.t7)
-    l.t7 :: [tt15]
-    l.t7 = ((:) tt15) lit.t16 k.t6
-AbsBinds [] [] [(m.t19, ShouldSucceed.m)]
-    {- nonrec -}
-    m.t19 :: tt2
-    m.t19 = ShouldSucceed.j +.t21 ShouldSucceed.j
 
+
+--================================================================================
+Typechecked:
+{- nonrec -}
+d.Num_aHp =
+    PrelBase.$d3{-rb7,p-}
++_aHu =
+    PrelBase.+{-rR,p-}
+	PrelBase.Int{-3g,p-}
+	d.Num_aHp
+d.Num_aHt =
+    d.Num_aHp
+fromInt_aHC =
+    PrelBase.fromInt{-8R,p-}
+	PrelBase.Int{-3g,p-}
+	d.Num_aHt
+lit_aHB =
+    fromInt_aHC PrelBase.I#{-5b,p-}{i} 1#
+fromInt_aHA =
+    fromInt_aHC
+lit_aHz =
+    fromInt_aHA PrelBase.I#{-5b,p-}{i} 0#
+fromInt_aHy =
+    fromInt_aHC
+lit_aHv =
+    fromInt_aHy PrelBase.I#{-5b,p-}{i} 2#
+{- nonrec -}
+AbsBinds [] [] [([], j{-rV,x-}, j_aGI)]
+    j_aGI
+	=   lit_aHv
+{- nonrec -}
+{- rec -}
+AbsBinds [] [] [([], k{-rU,x-}, k_aGS), ([], l{-rT,x-}, l_aGT)]
+    k_aGS
+	=   PrelBase.:{-55,p-}{i}
+		PrelBase.Int{-3g,p-}
+		lit_aHB
+		(PrelBase.:{-55,p-}{i}
+		     PrelBase.Int{-3g,p-}
+		     j{-rV,x-} l_aGT)
+    l_aGT
+	=   PrelBase.:{-55,p-}{i}
+		PrelBase.Int{-3g,p-}
+		lit_aHz k_aGS
+{- nonrec -}
+{- nonrec -}
+AbsBinds [] [] [([], m{-rS,x-}, m_aHb)]
+    m_aHb
+	=   j{-rV,x-} +_aHu j{-rV,x-}
+{- nonrec -}
+ghc: module version changed to 1; reason: no old .hi file
+_interface_ ShouldSucceed 1
+_instance_modules_
+ArrBase IO PrelNum
+_usages_
+PrelBase 1 :: $d1 1 $d11 1 $d15 1 $d2 1 $d21 1 $d27 1 $d3 1 $d32 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d42 1 $d44 1 $d46 1 $d54 1 $d7 1 $d8 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+_exports_
+ShouldSucceed j k l m;
+_declarations_
+1 j _:_ PrelBase.Int ;;
+1 k _:_ [PrelBase.Int] ;;
+1 l _:_ [PrelBase.Int] ;;
+1 m _:_ PrelBase.Int ;;