[project @ 2000-03-29 08:59:28 by simonmar]

[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 cce4257..cd6f737 100644 (file)
--- a/ghc/tests/printing/should_compile/Print003.stderr
+++ b/ghc/tests/printing/should_compile/Print003.stderr
@@ -1,22 +1,8 @@
 
 ==================== Typechecked ====================
-Word.bitRsh{-r3z-} =
-    _/\_ a_tr3x -> \ tpl_B1 ->
-       case tpl_B1 of { Word.:Bits{-r3B-} tpl_B2 tpl_B3  -> tpl_B2;}
-Word.bitLsh{-r3y-} =
-    _/\_ a_tr3x -> \ tpl_B1 ->
-       case tpl_B1 of { Word.:Bits{-r3B-} tpl_B2 tpl_B3  -> tpl_B3;}
-AbsBinds [a_tan2] [d.Bits_an1] []
+AbsBinds [a{-aSM-}] [_dBits{-aSL-}] []
 
 
 ghc: module version changed to 1; reason: no old .hi file
-_interface_ Word 1
-_instance_modules_
-IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
-_exports_
-Word Bits(:Bits :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} ;