[project @ 1999-01-24 14:18:55 by sof]

[ghc-hetmet.git] / ghc / tests / printing / should_compile / Print003.stderr

diff --git a/ghc/tests/printing/should_compile/Print003.stderr b/ghc/tests/printing/should_compile/Print003.stderr
index f834031..cd6f737 100644 (file)
--- a/ghc/tests/printing/should_compile/Print003.stderr
+++ b/ghc/tests/printing/should_compile/Print003.stderr
@@ -1,20 +1,8 @@
+
 ==================== Typechecked ====================
-bitRsh{-r3h,x-} =
-    _/\_ t12 -> \ tpl_B1 ->
-       case tpl_B1 of { PrelTup.(,){-62,w-}{i} tpl_B1 tpl_B2  -> tpl_B1;}
-bitLsh{-r3i,x-} =
-    _/\_ t12 -> \ tpl_B1 ->
-       case tpl_B1 of { PrelTup.(,){-62,w-}{i} tpl_B1 tpl_B2  -> tpl_B2;}
-AbsBinds [takI] [d.Bits_akH] []
+AbsBinds [a{-aSM-}] [_dBits{-aSL-}] []
+
 
 ghc: module version changed to 1; reason: no old .hi file
-_interface_ Word 1
-_instance_modules_
-ArrBase IO PrelNum
-_exports_
-Word Bits(bitRsh bitLsh);
-_fixities_
-infixl 8 bitLsh;
-infixl 8 bitRsh;
-_declarations_
-1 class Bits a where {bitRsh :: a -> PrelBase.Int -> a; bitLsh :: a -> PrelBase.Int -> a} ;
+__export Word Bits{bitLsh bitRsh};
+1 class Bits a where {bitLsh :: a -> PrelBase.Int -> a; bitRsh :: a -> PrelBase.Int -> a} ;