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

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

diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc017.stderr b/ghc/compiler/tests/typecheck/should_succeed/tc017.stderr
index 5bee79e..22fc7d4 100644 (file)
--- a/ghc/compiler/tests/typecheck/should_succeed/tc017.stderr
+++ b/ghc/compiler/tests/typecheck/should_succeed/tc017.stderr
@@ -1,12 +1,38 @@
-Typechecked:
-d.Num.t8 = dfun.Num.Integer
-fromInt.t7 = fromInt tt4 d.Num.t8
-lit.t5 = fromInt.t7 (MkInt 1#)
-d.Num.t9 = d.Num.t8
-(+.t3) = (+) tt4 d.Num.t9
-AbsBinds [] [] [(v.t1, ShouldSucceed.v)]
-    {- rec -}
-    v.t1 :: tt4
-    v.t1 | True = v.t1 +.t3 lit.t5
-        | False = v.t1
 
+
+--================================================================================
+Typechecked:
+{- nonrec -}
+d.Num_aGW =
+    PrelBase.$d3{-rb1,p-}
++_aH1 =
+    PrelBase.+{-ras,p-}
+       PrelBase.Int{-3g,p-}
+       d.Num_aGW
+d.Num_aH0 =
+    d.Num_aGW
+fromInt_aH3 =
+    PrelBase.fromInt{-8R,p-}
+       PrelBase.Int{-3g,p-}
+       d.Num_aH0
+lit_aH2 =
+    fromInt_aH3 PrelBase.I#{-5b,p-}{i} 1#
+{- rec -}
+AbsBinds [] [] [([], v{-r1,x-}, v_aGC)]
+    v_aGC
+       | [PrelBase.True{-5E,p-}{i}] =
+           v_aGC +_aH1 lit_aH2
+       | [PrelBase.False{-58,p-}{i}] =
+           v_aGC
+{- 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 v;
+_declarations_
+1 v _:_ PrelBase.Int ;;