[project @ 1997-05-26 05:58:06 by sof]

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

diff --git a/ghc/compiler/tests/printing/Print003.stderr b/ghc/compiler/tests/printing/Print003.stderr
index e69de29..7ad6eea 100644 (file)
--- a/ghc/compiler/tests/printing/Print003.stderr
+++ b/ghc/compiler/tests/printing/Print003.stderr
@@ -0,0 +1,44 @@
+
+
+================================================================================
+Typechecked:
+{- nonrec -}
+bitRsh{-r3h,x-} =
+    _/\_ a{-r3f-} -> \ tpl_B1 ->
+       case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2  -> tpl_B1;}
+bitLsh{-r3g,x-} =
+    _/\_ a{-r3f-} -> \ tpl_B1 ->
+       case tpl_B1 of { PrelTup.(,){-62,p-}{i} tpl_B1 tpl_B2  -> tpl_B2;}
+{- nonrec -}
+AbsBinds
+[a{-anm-}]
+[d.Bits_anf]
+[([a{-anm-}], $mbitRsh{-rnw,x-}, bitRsh_anh)]
+    AbsBinds [] [] [([], bitRsh_anh, bitRsh_anj)]
+       bitRsh_anj
+           =   GHCerr.noDefaultMethodError{-8k,p-}
+                   (a{-anm-} -> PrelBase.Int{-3g,p-} -> a{-anm-})
+                   "Class Bits Method bitRsh"
+AbsBinds
+[a{-anm-}]
+[d.Bits_anp]
+[([a{-anm-}], $mbitLsh{-rnx,x-}, bitLsh_anr)]
+    AbsBinds [] [] [([], bitLsh_anr, bitLsh_ant)]
+       bitLsh_ant
+           =   GHCerr.noDefaultMethodError{-8k,p-}
+                   (a{-anm-} -> PrelBase.Int{-3g,p-} -> a{-anm-})
+                   "Class Bits Method bitLsh"
+{- nonrec -}
+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 $mbitLsh _:_ _forall_ [a] {Bits a} => a -> PrelBase.Int -> a ;;
+1 $mbitRsh _:_ _forall_ [a] {Bits a} => a -> PrelBase.Int -> a ;;
+1 class Bits r3f where {bitRsh :: r3f -> PrelBase.Int -> r3f; bitLsh :: r3f -> PrelBase.Int -> r3f} ;